[AL_BRNS]

السلام عليكم

بعد الشكر للاخ احمد ولزيادة الفائدة

PHP كود :

Private Sub Command1_Click()
VBA.Calendar = 1
Print Date
End Sub 


حيث :

 vbCalGreg = (التقويم الميلادي)  = 0

vbCalHijri = (التقويم الهجري) = 1

ولاظهار التاريخ مع اسم اليوم والشهر

PHP كود :

Private Sub Command1_Click()
VBA.Calendar = vbCalHijri
Print Format(Now, "(dddd) (yyyy/mmm/dd)")
End Sub 


 

اتمني التوفيق للجميع .