17-10-12, 05:17 PM
كاتب الموضوع : AhmedEssawy
الدالة التالية تحول قيمة التاريخ المرسل لها الى التاريخ الهجري حتى لو كانت الاعدادات الاقليمية 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")