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

スポンサーリンク

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

サンプルコード

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

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

    ' 8 日加算する
    dtBirth = DateTime.DateAdd("d", 8, dtBirth)

    ' 4 日減算する
    dtBirth = DateTime.DateAdd("d", -4, dtBirth)

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

関連するリファレンス

準備中です。

スポンサーリンク