تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحويل من التاريخ الهجري إلى الميلادي والعكس
#1
كاتب الموضوع : 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")
}}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم