Mega Code Archive

 

Categories / VB.Net Tutorial / Date Time

 

Call IsLeapMonth() for all the months

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