الفورم يحتوي على كلا التقويمين الهجري والميلادي مع اسماء الاشهر والايام والارقام ايضا لتوضيح الفكرة اكتر
الكود المستخدم بسيط وما هو الا تحويل الكاليندر من ميلادي الى هجرى والعكس مع تنسيقات التواريخ العادية كما بالكود
Private Sub UserForm_Activate()
'للتحويل الى التاريخ الميلادي
Calendar = vbCalGreg
'التاريخ بالتنسيق العادي
Label1.Caption = Date
'التاريخ باسم اليوم واسم الشهر والسنة
Label33.Caption = Format(Date, "DDD MMM YYYY")
'اسم الشهر
Label2.Caption = Format(Date, "MMM")
'الشهر رقمي
Label29.Caption = Format(Date, "M")
'اسم اليوم
Label36.Caption = Format(Date, "DDD")
'اليوم رقمي
Label28.Caption = Format(Date, "D")
'للتحويل الى التاريخ الهجرى
Calendar = vbCalHijri
'التاريخ بالتنسيق العادي
Label3.Caption = Date
'التاريخ باسم اليوم واسم الشهر والسنة
Label34.Caption = Format(Date, "DDD MMM YYYY")
'اسم الشهر
Label4.Caption = Format(Date, "MMM")
'الشهر رقمي
Label31.Caption = Format(Date, "M")
'اسم اليوم
Label5.Caption = Format(Date, "DDD")
'اليوم رقمي
Label38.Caption = Format(Date, "D")
End Sub