طلب كود يظهر التاريخين الهجري والميلادي على نموذج في وقت واحد

نعم يمكن ذلك اخي الكريم

حسب الطريقة التالية

1. قم بعرض النموذج في وضع التصميم

2. قم بإنشاء مربعين نص غير منضمين الاول يكون للتاريخ الهجري وليكن اسمه مثلا txtHijriDate والثاني للتاريخ الميلادي وليكن اسمه مثلا txtGregDate .

3. ضع هذا الكود في حدث عند التحميل او الفتح او الحالي للنموذج

Private Sub Form_Current()
Calendar = vbCalHijri
txtHijriDate = Date
txtHijriDate = Format(txtHijriDate, "yyyy/mm/dd") & " هـ"

Calendar = vbCalGreg
txtGregDate = Date
txtGregDate = Format(txtGregDate, "yyyy/mm/dd") & " م "
End Sub

حيث txtHijriDate يمثل مربع النص الغير منضم الذي يمثل التاريخ الهجري

و txtGregDate يمثل مربع النص الغير منضم للتاريخ الميلادي

وهذا مثال

HG_DATE.rar

اختكم

زهره