エクセルマクロVBA サンプルコード辞書
トップページ（目次）444.月数を数える_今日から年末まで
＜実行前後＞
→
Sub 月数を数える_今日から年末まで()
年末 = Year(Date) & "/12/31"
MsgBox "今日から年末まで、あと" & DateDiff("m", 年末, Date) * -1 & "ヶ月"
End SubSub 月数を数える_今日から年末まで()
年末 = Year(Date) & "/12/31"
MsgBox "今日から年末まで、あと" & DateDiff("m", 年末, Date) * -1 & "ヶ月"
End Sub