+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] هل يوجد طريق مختصرة يتم نحويل التاريخ الهجري الى ميلادي ؟؟ (/showthread.php?tid=27533)
هل يوجد طريق مختصرة يتم نحويل التاريخ الهجري الى ميلادي ؟؟ - Microformt - 19-11-18
بسم الله الرحمن الرحيم
الاخوه الكرام
هل يوجد طريق مختصرة يتم نحويل التاريخ الهجري الى ميلادي ؟؟
تحياتي
RE: هل يوجد طريق مختصرة يتم نحويل التاريخ الهجري الى ميلادي ؟؟ - AL_BRNS - 19-11-18
السلام عليكم
جرب التالي
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
بالتوفيق .