كيف يمكن جعل التاريخ هجري في التقرير

shz17 كتب:

السلام عليكم ورحمة الله وبركاته

كيف يمكن جعل التاريخ هجري في التقرير

وشكرا لكم.............................

اعتقد انه يجب عليك ان تغير تاريخ جهازك الى الصيغة الهجرية

وذلد من لوحة التحكم ومن ثم التاريخ والوقت وتختار من هناك التقويم الهجري والله أعلم

الأخ الكريم

ضع الكود التالي في تصميممربع نص في النموذج ومنه يطبع في التقرير

Private Sub Form_Current()

txtHD = Format(Date, "dd/mm/yyyy")

End Sub

Private Sub Form_Load()

Calendar = vbCalGreg

txtHD = Date

End Sub

Private Sub Form_Timer()

Me.CLOCK.Requery

End Sub

أبو منتظر كتب:

Private Sub Form_Load()

Calendar = vbCalGreg

txtHD = Date

End Sub

لي ملاحظة هنا:

اذا كان تاريخ الوندوز هجري فسيقوم الكود السابق بعرض التاريخ الميلادي

لكن اذا كان التاريخ ميلادي والمطلوب اظهار التاريخ الهجري فيجب تغيير الكود إلى :

 Calendar = vbCalHijri

وشكرا