銀河鉄道

月うさぎBlog

【VBA】DateAddで時間の足し算・引き算

記事更新日：2022-11-03

サムネイル
時間計算のDateAdd

時間の足し算

時間＋秒数：時間に秒数を足す

Public Function CalcTimeAddSeconds( _
                                        ByVal srcTime As Date, _
                                        ByVal addSeconds As Long) As Date
    CalcTimeAddSeconds = DateAdd("s", addSeconds, srcTime)
End Function

時間＋分数：時間に分数を足す

Public Function CalcTimeAddMinutes( _
                                        ByVal srcTime As Date, _
                                        ByVal addMinutes As Long) As Date
    CalcTimeAddMinutes = DateAdd("n", addMinutes, srcTime)
End Function
引き算にするときは
第二引数を
マイナスの数値にする

著者

author
月うさぎ

2022-11-03

編集後記：
この記事の内容がベストではないかもしれません。

記事一覧