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

بسم الله الرحمن الرحيم

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

أقدم لكم شرح برنامج تحويل التاريخ من الهجري الى الميلادي والعكس

أولا : قم بتشغيل فيجوال بيسيك كالمعتاد

ثم أختر

سوف يفتح لك مشروع جديد ويوجد به نموذج Form1

أضف أدوات كالتالي

2 textbox

1 combobox

1 lable

2 command button

ورتبهم على النافذة كالتالي :

ثم أكتب الكود التالي في Form_Load

 Combo1.AddItem "من ميلادي إلى هجري"
Combo1.AddItem "من هجري إلى ميلادي"
Combo1.ListIndex = 0

عمل الكود السابق هو تعبئة ال combo بالخيارين...

ثم إظهار الخيار الأول

الآن أضف الكود التالي في Command1_Click (تحويل)

Dim tDate As Date
If IsDate(Text1) = False Then
MsgBox "لقد أدخلت تاريخ خاطئ .. الرجاء قم بإدخال تاريخ صحيح"
Exit Sub
Else
If Combo1.ListIndex = 0 Then 'من ميلادي الى هجري
Calendar = vbCalGreg
tDate = Text1
Calendar = vbCalHijri
Text2 = tDate
Else ' من هجري الى ميلادي
Calendar = vbCalHijri
tDate = Text1
Calendar = vbCalGreg
Text2 = tDate
End If
End If

وأخيرا قم بكتابة الكود التالي في Command2_Click (خروج)

End

أنتهينا

يمكنكم التجربة بتاريخ ميلادي

هجري : 21/6/1409

ميلادي : 28/1/1989

تقبلوا تحياتي

عبدالكريم ملكدي