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

スポンサーリンク

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

サンプルコード

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

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

    ' 4 年加算する
    dtBirth = DateTime.DateAdd("yyyy", 4, dtBirth)

    ' 2 年減算する
    dtBirth = DateTime.DateAdd("yyyy", -2, dtBirth)

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

関連するリファレンス

準備中です。

スポンサーリンク