للتوضيح و عموم الفائدة
في حدث بعد التحديث لحقل النموذج الذي سيحرر فيه التاريخ الهجري نضع الكود التالي
Private Sub DateH_AfterUpdate()
Dim sc As Integer
Dim q As Date
Dim s As String
sc = Calendar
Calendar = 1
q = CDate(DateH.Text)
Calendar = 0
s = CStr(q)
DateM = Format(s, "YYYY/MM/DD")
End Sub