[قناص المدينة]

هذه الدالة
Function ConvertToHijri(ByVal dateGregorian As DateTime) As String
Dim hijriCalendar As New HijriCalendar()
Dim hijriDate As String = hijriCalendar.GetYear(dateGregorian).ToString() + "/" + hijriCalendar.GetMonth(dateGregorian).ToString() + "/" + hijriCalendar.GetDayOfMonth(dateGregorian).ToString()

Return hijriDate
End Function
وهذه دالة الاستدعاء
Dim birthDate As DateTime = New DateTime(1990, 10, 15)

hijriDate.text = ConvertToHijri(birthDate)