DateAdd関数 : Excel(エクセル)

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

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

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

Excel Tipsメニューに戻る

スポンサーリンク





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

Excel Tipsメニューに戻る




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


Copyright (c) Excel-Excel ! All rights reserved