■  日付間隔を求める例

今日のxヶ月後を求める例です。

【fnc_DispDate】
    Dim strdate As String
    Dim diff As Long

    strdate = Format(DateAdd(DateInterval.Month, 3, Today()), "yyyy/MM/dd") '今日の3ヶ月後

    diff = DateDiff(DateInterval.Day, Today(), CDate(strdate))              '今日の3ヶ月後までの間隔


※時間を加減算するにはDateAdd関数を、時間の間隔を求めるにはDateDiff関数を使います。

DateAdd関数・Diff関数のVB6との違いは、1番目の引数です。VB6ではString型で.NETでは列挙型です。


BEFORE PAGE

TOP PAGE