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

スポンサーリンク

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

サンプルコード

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

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

    ' 6 ヶ月加算する
    dtBirth = DateTime.DateAdd("M", 6, dtBirth)

    ' 3 ヶ月減算する
    dtBirth = DateTime.DateAdd("M", -3, dtBirth)

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

関連するリファレンス

準備中です。

スポンサーリンク