Calls IsLeapYear() for five years in each of the eras.
Imports System Imports System.Globalization Imports Microsoft.VisualBasic Public Class SamplesJulianCalendar Public Shared Sub Main() Dim myCal As New JulianCalendar() Dim y As Integer For y = 2001 To 2005 Console.Write(ControlChars.Tab + "{0}", y) Next y ' Checks five years in the current era. For y = 2001 To 2005 Console.Write(ControlChars.Tab + "{0}", myCal.IsLeapYear(y, JulianCalendar.CurrentEra)) Next y End Sub End Class