استفسار بخصوص التقويم العربي

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

اخواني في المنتدى اريد الاستفسار بخصوص التقويم العربي فقد استخدمت الكود التالي في نموذج للتقويم العربي بعد مساعدة احد الاساتذة لي لكنني عند التطبيق

وجدت انني عندما ادخل التاريخ(30 ذو الحجة 1429) يحولها مباشرة الى (1محرم 1430) والمستخدم لهذا البرنامج يعمل بحسب تقويم ام القرى فهو ملزم بادخال التاريخ كما هو.... فما هو السبب في ذلك؟؟؟ افيدوني جزاكم الله خيرا

Private Sub Form_Load()

On Error Resume Next

Dim X As Date, D As Integer, xx As Control

X = Date

CXyear = year(X)

CXmonth = Month(X)

D = day(X)

'GrpDays = 0

End Sub