كود معرفة الشهر الحالي

'ضع الكود في الفورم

Private Sub Command1_Click()

Mmonth = Mid(Date, 4, 2)

Print MonthName(Mmonth)

End Sub