السلام عليكم ورحمة الله وبركاته
كثيراً ما نشتكى مشاكل التاريخ الهجري و الميلادي .
استخدمت فئات مثل CultureInfo :
Public Function HijjryDate(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
End Function
Public Function GregorianDate(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
Return gDate.ToString(format, New Globalization.CultureInfo("ar-eg"))
End Function
ولم تكن منضبطة
و استخدمت الفئة UmAlQuraCalendar و الفئة GregorianCalendar :
Dim hijFull As String
Dim umq As New System.Globalization.UmAlQuraCalendar
Dim hijDay As Integer = umq.GetDayOfMonth(strDate)
Dim hijMonth As Integer = umq.GetMonth(strDate)
Dim hijYear As Integer = umq.GetYear(strDate)
hijFull = CheckDigit(hijDay.ToString) + "/" + CheckDigit(hijMonth.ToString) + "/" + hijYear.ToString
Return (hijFull)
End Function
Public Function UmAlQuraToGregorian(ByVal strDate As String) As String
Dim grg As New System.Globalization.GregorianCalendar
Dim grgDay As Integer = grg.GetDayOfMonth(strDate)
Dim grgMonth As Integer = grg.GetMonth(strDate)
Dim grgYear As Integer = grg.GetYear(strDate)
Dim grgFull As String = CheckDigit(grgDay.ToString) + "/" + CheckDigit(grgMonth.ToString) + "/" + grgYear.ToString
Return (grgFull)
End Function
Public Function GregorianToUmAlQura(ByVal strDate As String) As String