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