Now Now() 取得系统当前的日期和时间
Dim MyVar MyVar = Now 'MyVar 包含当前的日期和时间。
Date Date() 取得系统当前的日期
Dim MyDate MyDate = Date 'MyDate 包含当前系统日期。
Time Time() 取得系统当前的时间
Dim MyTime MyTime = Time '返回当前系统时间。
Year Year(Date) 取得给定日期的年份
Dim MyDate, MyYear MyDate = #October 19, 1962# '分派一日期。 MyYear = Year(MyDate) 'MyYear 包含 1962。
Month Month(Date) 取得当前时间的月份
Dim MyVar MyVar = Month(Now) 'MyVar包含当前月对应的数字。
Hour Hour(time) 取得给定时间是第几小时
Dim MyTime, MyHour MyTime = Now MyHour = Hour(MyTime) 'MyHour 包含代表当前时间的数值。
Minute Minute(time) 取得给定时间是第几分钟
Dim MyVar MyVar = Minute(Now)
Second Second(time) 取得给守时间是第几秒 Dim MySec
MySec = Second(Now) 'MySec 包含代表当前秒的数字。
WeekDay WeekDay(Date) 取得给定日期是星期几的整数,1表示星期日,2表示星期一,依此类推
Dim MyDate, MyWeekDay MyDate = #October 19, 1962# MyWeekDay = Weekday(MyDate) 'MyWeekDay 包含 6,MyDate 代表星期五