مشكلة : عند التحويل التلقائي من التاريخ الهجري للميلادي يكون فى فرق يوم

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

ان شاء الله يكون الجميع بخير

انا عندي مشكلة فى فورم بدخل عن طريقة البيانات 

والمشكلة تحديدا فى التواريخ 

مثلا عندي ادخال " تاريخ بداية الضمان " 

انا عامل انه لما ادخل التاريخ الهجري بيظهر جنبه تلقائيا التاريخ الميلادي المقابل لنفس اليوم

احيانا يطلع مظبوط وغالبا بيطلع الميلادي متاخر يوم 

مثلا مثال بدخل تاريخ اليوم وهو  24/08/1434   بيظهر فى الميلادي   02/07/2013

مع ان تاريخ اليوم الميلادي  03/07/2013

وده الكود اللي انا مستخدمه اتذكر انه للأخت زهرة 

Private Sub HijreDate_AfterUpdate()
    Dim sc As Integer
    Dim q As Date
    Dim s As String
     sc = Calendar
    Calendar = 1
    On Error Resume Next
    
    q = CDate(HijreDate.Text)
    Calendar = 0
    s = CStr(q)
     GregorianDate = Format(s, "YYYY/MM/DD")
    Calendar = sc
End Sub

حجم البرنامج اللي فيه المشكلة 2 ميجا

لو محتاجين البرنامج نفسه ممكن ارفعه على رابط خارجي

أرجو المساعدة وجزاكم الله خيرا