Imports System.Globalization
Module MainClass
Public Sub Main()
Dim hijri As New HijriCalendar()
Dim dateHijri As Date = New Date(1430, 1, 17, hijri)
Console.WriteLine(dateHijri.Day)
Console.WriteLine(hijri.GetDayOfMonth(dateHijri))
End Sub
End Module