تاريخين ميلادي وهجري في نفس البرنامج

السلام عليكم 

اليك رابط به درر للاستاذة أم عهود

من هنا

بارك الله بك اخي الكريم : عبدالله

على المشاركة

اخي الفاضل : صاحب السؤال

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

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

الله يعطيكي الف عافيه ام عهود

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