Most systems have the Microsoft.NET Framework installed. This Visual Basic 6.0 program shows how to call functions from the mscorlib.dll (mscorlib.tlb) from Visual Basic 6.0 to obtain the current Hebrew date.
The code above does not test for leap years, but that can be determined using the IsLeapYear Method.
The HebrewCalendar Class has these and many more properties and methods.
Code:
' This is a Visual Basic 6.0 program, that demonstrates how to get the current Hebrew date,
' using the .NET mscorlib.tlb
' Project -> References -> C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscorlib.tlb
' on my Windows Vista system
Private Sub Main()
' Uses Karl Peterson's MConsole.bas, available from http://vb.mvps.org/samples/Console/
Dim Hebrew As New mscorlib.HebrewCalendar
TheYear = CStr(Hebrew.GetYear(Date))
' TODO: Expand for inclusion of all month names
Select Case Hebrew.GetMonth(Date)
Case 6
TheMonth = "Adar"
Case Else
TheMonth = CStr(Hebrew.GetMonth(Date))
End Select
TheDay = CStr(Hebrew.GetDayOfMonth(Date))
' Uses Karl Peterson's MConsole.bas, available from http://vb.mvps.org/samples/Console/
Con.Initialize
' You can use a MsgBox here if you don't use MConsole.bas
' MsgBox TheMonth + " " + TheDay + ", " + TheYear
Con.WriteLine TheMonth + " " + TheDay + ", " + TheYear
End SubThe HebrewCalendar Class has these and many more properties and methods.
