■現在日付
年：Now.Year
月：Now.Month
日：Now.Day

年：Year(Now)
月：Month(Now)
日：DateAndTime.Day(Now)

■DateDiff関数
日数を求めるとき、時間まで考慮しないとVB6.0のときのような結果が得られない。
Dim wDate1 as Date
Dim wDate2 as Date
Dim wDays as Integer
wDays = DateDiff(DateInterval.Day, CDate(Format(wDate1, "yyyy/MM/dd 00:00:00")), CDate(Format(wDate2, "yyyy/MM/dd 00:00:00")))

---