Sub 月数を数える_元旦から今日まで() 元旦 = Year(Date) & "/1/1" MsgBox "元旦から今日まで、" & DateDiff("m", 元旦, Date) + 1 & "ヶ月経過" End Sub