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

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

بالنسبة للسؤال الأول :

تستطيع أت تأخذ رقم السنة من التاريخ المدخل فإن كانت أصغر من 1600 مثلاً فمعناته أن التاريخ هجري وإن كانت أكبر منه فمعناته أن التاريخ ميلادي . أعتقد هذه طريقة مفيده .

بالنسبة للسؤال الثاني :

أستخدم هذا الكود إستخدم هذا الكود للتحويل من الميلادي للهجري :

Dim gDate As Date, hDate As String
Dim The_Date As String

The_Date = "2009/1/1"
gDate = The_Date
Calendar = vbCalHijri
hDate = gDate
Calendar = vbCalGreg
MsgBox "Hijri Date is" & hDate

وإستخدم هذا الكود للتحويل من الهجري إلى الميلادي :

Dim gDate As Date, hDate As String
Dim The_Date As String

Calendar = vbCalHijri
The_Date = "1429/1/1"
hDate = The_Date
gDate = hDate
Calendar = vbCalGreg
MsgBox "Greg Date is " & gDate

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