هل يمكن عرض التاريخ الهجري والميلادي معا

اخي الكريم الريثي

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

تستطيع عمل ذلك من خلال التالي

1. قم بإنشاء نموذج جديد خالي من البيانات واجعله في عرض التصميم

2. قم بإنشاء مربعين نص

مربع النص الاول اسمه

TxtTDateHijri

وهذا يمثل التاريخ الهجري

مربع النص الثاني اسمه

TxtTDateGreg

وهذا يمثل التاريخ الميلادي

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

Private Sub Form_Open(Cancel As Integer)
Calendar = vbCalHijri
TxtTDateHijri = Date
TxtTDateHijri = Format(TxtTDateHijri, "yyyy/mm/dd") & " هـ"
Calendar = vbCalGreg
TxtTDateGreg = Date
TxtTDateGreg = Format(TxtTDateGreg, "yyyy/mm/dd") & " م "
End Sub

وهذا مثال على ذلك

التاريخ الهجري والميلادي.rar

اختكم

زهره

الأخت الكريمة زهرة

الف مليون شكر على التكرم بالرد

بارك الله لك في عمرك ووقتك ورزقك العلم النافع والعمل الصالح