エクセルマクロVBA サンプルコード辞書
トップページ（目次）445.日数を数える_元旦から今日まで
＜実行前後＞
→
Sub 日数を数える_元旦から今日まで()
元旦 = Year(Date) & "/1/1"
MsgBox "元旦から今日まで、" & DateDiff("d", 元旦, Date) + 1 & "日経過"
End SubSub 日数を数える_元旦から今日まで()
元旦 = Year(Date) & "/1/1"
MsgBox "元旦から今日まで、" & DateDiff("d", 元旦, Date) + 1 & "日経過"
End Sub