[ابو محمد محمد محمد]

الدالة التالية تحول قيمة التاريخ المرسل لها الى التاريخ الهجري حتى لو كانت الاعدادات الاقليمية Regional Settings في الجهاز الحالي لا تدعم التاريخ الهجري ، وذلك اعتماداً على الإعدادات الإقليمية Globalization .

كود :

Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String
Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))
End Function

كود :

Textbox1.Text = ToHijra(Now, "d dddd, MMMM yyyy")