كيف اجعل القيمة Text تاريخ عربي ؟؟؟؟

الحل بكمن في تحويل خاصية Calendar كالتالي

Private Sub Command1_Click()
Calendar = vbCalHijri
Text1 = format(Date , "dd-mm-yyyy")
End Sub

Calendar = 2  ' HnHn : عربي 
Calendar = 1 ' Hnhn  : انجليزي

هناك حل اخر

هناك ocx

عباره عن اده لاظاهر التاريخ الهجرى

جزاكم الله خيرا جميعا

حل الاخ HnHn سهل وسريع

هل يمكن ارفاق ملف ال OCX

35- داة (DTPicker) لعرض التاريخ الهجري محمدvb