17-10-12, 12:22 AM
كاتب الموضوع : 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")