Mega Code Archive

 

Categories / VB.Net / Development

 

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