普通Gカレンダとか使うんだけど。
|
1 2 3 4 5 6 7 8 9 10 11 |
today = Day(Now()) '必要に応じて日を追加 If today = 1 Then MsgBox "何か書く" '月末用 monthAdded = DateAdd("m", 1, Now) nextMonth = DateValue(Year(monthAdded) & "/" & Month(monthAdded) & "/" & "1") lastDay = Day(DateAdd("d", -1, nextMonth)) If today = lastDay Then MsgBox "何か書く" |