تحويل التاريخ من ميلادي الى هجري vb.net

الدالة التالية تحول قيمة التاريخ المرسل لها الى التاريخ الهجري حتى لو كانت الاعدادات الاقليمية 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")


تحويل التاريخ من ميلادي الى هجري vb.net

[عذراً, فقط الأعضاء يمكنهم مشاهدة الروابط ]

تحويل التاريخ من ميلادي الى هجري vb.net