エクセルマクロVBA サンプルコード辞書
トップページ（目次）448.日数を数える_今日から指定日まで_誕生日や記念日まで
＜実行前後＞
→
Sub 日数を数える_今日から指定日まで_誕生日や記念日まで()
指定日 = Year(Date) & "/4/1"
MsgBox "今日から指定日まで、あと" & DateDiff("d", 指定日, Date) * -1 & "日"
End SubSub 日数を数える_今日から指定日まで_誕生日や記念日まで()
指定日 = Year(Date) & "/4/1"
MsgBox "今日から指定日まで、あと" & DateDiff("d", 指定日, Date) * -1 & "日"
End Sub