% CurrentDay=Now CurrentDay=DatePart("d", currentday) CurrentWeekday=Weekday(Now) temp=CurrentDay mod 7 FirstWeekday=CurrentWeekday-temp If (FirstWeekday) >= 0 Then FirstWeekday=FirstWeekday+1 Else FirstWeekday=FirstWeekday+8 End If CurrentMonth=Month(Now) CurrentYear=Year(Now) %>
![]() |
|
|
|
||||||||