9.0

130
Debug.Print CVErr(1) ' Error 1
End
Sub
Date Function
Syntax
Date[$]
Group
Time/Date
Description
Return today's date as a date value.
See Also: Now
, Time, Timer.
Example
Sub Main
Debug
.Print Date ' example: 1/1/1995
End
Sub
DateAdd Function
Syntax
DateAdd(interval, number, dateexpr)
Group
Time/Date
Description
Return a date value a number of intervals from another date.
Parameter Description
interval This string value indicates which kind of interval to add.
number Add this many intervals. Use a negative value to get an earlier date.
dateexpr Calculate the new date relative to this date value. If this value is Null then Null is
returned.
Interval Description
yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday