【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]Convert stringto Date 【VBA】文字列を日付型に変える|CDateよりDateSerial -
テーブルをソートする 【VBA】Excelテーブルを昇順で並び替える|ソート -
[VBA]Make Directory MkDir 【VBA】フォルダを作る|MkDir(フォルダがすでに存在していればエラーになる) -
[VBA]fsoSingleton pattern 【VBA】FSO(“Scripting.FileSystemObject”)|シングルトン化して使う -
絶対値を取得 【VBA】絶対値を取得する|Abs -
Let と Getで読み取り専用 【VBA】クラスのプロパティを読み取り専用にするLet と Getの書き方