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