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
|