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

1. VB.Net Tutorial
2. Date Time
3. Date Functions

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