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

スポンサーリンク

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

サンプルコード

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

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

    ' 32 秒加算する
    dtBirth = DateTime.DateAdd("s", 32, dtBirth)

    ' 16 秒減算する
    dtBirth = DateTime.DateAdd("s", -16, dtBirth)

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

関連するリファレンス

準備中です。

スポンサーリンク