[vbnet]

-
منقول

إفادة على السريع.....

كود :

MsgBox  "الشهر الحالي: " & MonthName(Month(Now))
MsgBox  "الشهر الماضي: " & MonthName(IIf(Month(Now) = 1, 12, Month(Now) - 1))

MsgBox "اليوم الحالي: " & WeekdayName(Weekday(Now))
MsgBox "اليوم السابق: " & WeekdayName(IIf(Weekday(Now) = 1, 7, Weekday(Now) - 1))

Calendar = vbCalHijri
For i = 1 To 12
    Me.List1.AddItem MonthName(i)
Next i

Calendar = vbCalGreg
For i = 1 To 12
    Me.List2.AddItem MonthName(i)
Next i

For i = 1 To 7
    Me.List3.AddItem WeekdayName(i)
Next i