Call IsLeapMonth() for all the months : Date Functions « Date Time « VB.Net Tutorial






Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic

Public Class MainClass

   Public Shared Sub Main()
      Dim myCal As New KoreanCalendar()
      Dim iMonthsInYear As Integer
      Dim y As Integer
      For y = 1 To 4338
         iMonthsInYear = myCal.GetMonthsInYear(y, KoreanCalendar.CurrentEra)
         Dim m As Integer
         For m = 1 To iMonthsInYear
            Console.Write(ControlChars.Tab + "{0}", myCal.IsLeapMonth(y, m, KoreanCalendar.CurrentEra))
         Next m
      Next y
   End Sub
End Class








5.3.Date Functions
5.3.1.DateAdd: add two date together
5.3.2.Weekday Function
5.3.3.Call to WeekdayName combined with call to Weekday
5.3.4.Determining the weekday of a date
5.3.5.CDate: convert string(8/1/86) to date
5.3.6.CDate: convert string(Tuesday, September 16, 1845 6:45pm) to Date
5.3.7.CDate: convert string(15 July, 1215) to Date
5.3.8.Assign Now() to a date variable
5.3.9.Different date between two dates
5.3.10.TimeOfDay
5.3.11.Calls GetDaysInMonth for the second month in each of five years in each era.
5.3.12.Call IsLeapMonth() for all the months
5.3.13.The FirstDayOfWeek used for the en-US culture
5.3.14.Current week in current year
5.3.15.Call IsLeapMonth for all the months in five years in the current era.