【VBA】予定日までのカウントダウン日数を算出する

VBAで
 ・予定日までのカウントダウン日数を算出
できます!

PR

VBAコード

Option Explicit

Sub sample()

    Dim targetDay As Date
    Dim howManyDays As Long
    
    '「ターゲット日(予定日)」を指定
    targetDay = "2022/12/31"

    '「ターゲット日(予定日)」まであと何日あるかを算出
    howManyDays = DateDiff("d", Date, targetDay)
    
    MsgBox "ターゲット日(予定日)まではあと『" & howManyDays & "日』です!"
    
End Sub

「ターゲット日(予定日)」を指定します(9行目)。
※ここでは例として「2022/12/31」を指定しています。

「DateDiff関数」により
 ・ターゲット日(予定日)まであと何日あるかを算出
します(12行目)。
※「予定日までのカウントダウン日数」を算出します。
※「DateDiff関数」の引数に「ターゲット日(予定日)」と「本日日付」を指定します。
※「本日日付」を取得するために「Date関数」を使用しています。

PR

実行結果

予定日までのカウントダウン日数を算出できました。

実行結果
実行結果
PR

参考①

年齢を算出することもできます。

詳細は以下の記事をご確認ください。

PR

参考②

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●DateDiff関数


●Date関数


●日付や時間を比較したり計算したりする例