VB6指定した時間数を加算または減算する

スポンサーリンク

VB6 では、DateTime モジュールの DateAdd 関数を使用します。時間間隔を表す文字列を、Interval に設定するのがちょっと面倒です。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' 日付と時刻を格納するための変数を宣言する
    Dim dtBirth As Date
    dtBirth = CDate("2005/04/07 22:31:35")

    ' 8 時間加算する
    dtBirth = DateTime.DateAdd("h", 8, dtBirth)

    ' 4 時間減算する
    dtBirth = DateTime.DateAdd("h", -4, dtBirth)

    ' 結果を表示する
    Call MsgBox(Format$(dtBirth, "yyyy/MM/dd hh:mm:ss"))

関連するリファレンス

準備中です。

スポンサーリンク