【VBA】DateAddで時間の足し算・引き算
作成日:2022-11-03
更新日:2025-10-07

時間の足し算
時間+秒数:時間に秒数を足す
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引き算にするときは
第二引数を
マイナスの数値にする
第二引数を
マイナスの数値にする
2022-11-03
編集後記:
この記事の内容がベストではないかもしれません。
記事一覧
-

vbaの色設定 【VBA】色の定数は8つ|RGB対称表 -

[VBA]Reset filtersand outlines 【VBA】オートフィルタ解除&非表示を表示する|.FilterMode/.Outline -

[VBA]開いているかwith FullName 【VBA】ブックが開いているか判定|StrComp で FullNameを調べる -

[VBA]Cutbefore after 【VBA】文字列から指定文字より前/後ろをカットする|InStrRev/Left$/Mid$ -

[VBA]Merge1D Arrays 【VBA】一次元配列と一次元配列を結合する -

[VBA]fsoSingleton pattern 【VBA】FSO(“Scripting.FileSystemObject”)|シングルトン化して使う