Excel - DateAdd関数

ExcelのDateAdd関数は日付を加算・減算します

構文　：　DateAdd(interval, number, date)
　　interval　-　（必須）時間間隔を表す文字列式
　　number　-　（必須）加算・減算する、時間間隔。将来の日時は正、過去の日時は負の数を指定します。
　　date　-　（必須）計算する日付

intervalの設定値：
　　yyyy -　年
　　q　-　四半期
　　m　-　月
　　y　-　年間通算日
　　d　-　日
　　w　-　週日
　　ww　-　週
　　h　-　時
　　n　-　分
　　s　-　秒

Excel実行画面

加算／減算する元の日付（D3）に正確な日付が入力されていない場合、エラーメッセージが表示されます。
日付の入力エラー

加算／減算する値に正確な日付が入力されていない場合、エラーメッセージが表示されます。
インターバル入力エラー

日付に分を加算した結果表示
日付の加算・減算ソフト

Excel実行コード

Option Explicit

Private Sub CommandButton1_Click()
    Dim s As String
    Dim sinterval As String
    Dim tdate As Date

    s = Range("D3")
    If IsDate(s) = False Then
        MsgBox "加算／減算元の日付（D3）に日付を入力してください"
        Exit Sub
    End If

    '時間間隔
    If OptionButton1.Value Then
        sinterval = "yyyy"
    ElseIf OptionButton2.Value Then
        sinterval = "q"
    ElseIf OptionButton3.Value Then
        sinterval = "m"
    ElseIf OptionButton4.Value Then
        sinterval = "y"
    ElseIf OptionButton5.Value Then
        sinterval = "d"
    ElseIf OptionButton6.Value Then
        sinterval = "w"
    ElseIf OptionButton7.Value Then
        sinterval = "ww"
    ElseIf OptionButton8.Value Then
        sinterval = "h"
    ElseIf OptionButton9.Value Then
        sinterval = "n"
    ElseIf OptionButton10.Value Then
        sinterval = "s"
    End If

    If IsNumeric(Range("D11")) = False Then
        MsgBox "加算／減算する値（D11に数値を入力してください"
        Exit Sub
    End If

    'DateAdd関数
    tdate = DateAdd(sinterval, Range("D11"), s)

    '結果を表示
    MsgBox "加算／減算結果： " & Format(tdate, "yyyy/mm/dd hh:nn:ss")

End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

DateAdd関数 ： Excel

Excel実行画面

Excel実行コード

DateAdd関数： Excel