وهذ هو الكود الذي يقوم بإعطائي التاريخ الميلادي والهجري الخاص باليوم بدون تغييرفيه
طبعا هذ الكود من الاخ ابن مسقط
Private Sub Form_Load()
Calendar = vbCalGreg
Me!txtGD = Format(Date, "yyyy-mm-dd")
Calendar = vbCalHijri
Me!txtHD = Format(Date, "yyyy-mm-dd")
Calendar = vbCalGreg
End Sub