GregorianCalendar.GetDaysInMonth
Imports System Imports System.Globalization Imports Microsoft.VisualBasic Public Class SamplesGregorianCalendar Public Shared Sub Main() Dim myCal As New GregorianCalendar() Console.Write("CurrentEra:") For y = 2001 To 2005 Console.Write(ControlChars.Tab + "{0}", myCal.GetDaysInMonth(y, 2, GregorianCalendar.CurrentEra)) Next y Console.WriteLine() End Sub End Class