19-11-18, 06:52 PM
19-11-18, 09:41 PM
السلام عليكم
جرب التالي
بالتوفيق .
جرب التالي
PHP كود :
Private Sub Command1_Click()
Dim hDate As Date, gDate As String
VBA.Calendar = vbCalHijri
hDate = InputBox("ادخل التاريخ الهجري")
gDate = hDate
VBA.Calendar = vbCalGreg
MsgBox "التاريخ يوافق " & hDate & "ميلادي "
End Sub
بالتوفيق .