منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التحويل من التاريخ الهجري إلى الميلادي والعكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : التحويل من التاريخ الهجري إلى الميلادي والعكس (/showthread.php?tid=5821)



التحويل من التاريخ الهجري إلى الميلادي والعكس - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

*** الكود منقول من المنتدى القديم ...


أولاً : نكتب في الموديل

كود :
Public Function TransDate(thedate As Date, TypeTrans As Integer) As String
Dim TempDate As String, MD As Date, a As String
'التحويل الى التاريخ الهجري

كود :
If TypeTrans = 1 Then
VBA.Calendar = vbCalHijri
TempDate = CStr(thedate)
TransDate = TempDate
VBA.Calendar = vbCalGreg
'التحويل الى التاريخ الميلادي

كود :
Text1 = TransDate
Else
a = CStr(thedate)
VBA.Calendar = vbCalHijri
MD = CDate(a)
VBA.Calendar = vbCalGreg
TransDate = CStr(Format(MD, "yyyy/mm/dd"))
txtdateofenglish = TransDate
End If

End Function
ونضيف الأوامر التالية
ميلادي - هجري

كود :
a = TransDate(text2, 1)
Text1.Text = a
هجري - ميلادي

كود :
b = TransDate(Text1, 2)
text2.Text = Format(b, "dd/mm/yyyy")