今日から指定した日まで、後何日か数える。

【実行画面】





< VBScript >

' 指定した日までの日数を求める

do
    'インプットボックス
    d = InputBox("日にちを入力して、今日から" & vbCR &_
        "その日まで何日かを調べます。" & vbCR & vbCR &_
        "例)2003/01/01" & vbCR &_
        "    h15-5-5",_
        "○○年○○月○○日まで後何日?")

    '「キャンセル」が押されたら終了
    'ただし、なにも入れなくて、「OK」を押しても終了してしまう (^^;
    if d = "" then
        exit do

    '日付だったらその日までの日数を表示
    '現在より、以前の日を指定するとマイナスになる
    elseif IsDate(d) then
        MsgBox Year(d) & "年" & Month(d) & "月" & Day(d) & "日まで後 "_
            & DateDiff("y",Date,d) & "日です。",64,"結果"
        exit do

    '日付でなかったら、注意を表示して、インプットボックスに戻る
    else
        MsgBox "入力した値が不正です。",48

    end if

loop




戻る