今日の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では列挙型です。