使用日期和时间函数来得到各种格式的日期和时间

函数
语法
说明
示例

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包含当前月对应的数字。

Day
Day(Date)
取得给定日期是几号
Dim MyDay MyDay = Day("October 19, 1962")
'MyDay包含 19。

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 代表星期五

DateDiff
DateDiff("Var",Var1,Var2)
Var:日期或时间间隔因子，有如下参数：
yyyy 年 m月 d 日 ww星期 h小时 s秒
Var1:第一个日期或时间
Var2:第二个日期或时间，比Var1晚
计算两个日期或时间的间隔
DateDiff("d",Date(),#1/1/2005#)
'返回离2005元旦还有多少
DateDiff("h",Date(),#1/1/2005#)
'返回离2005元旦还有多少小时
DateDiff("d",#1/1/2003#,#1/1/2005#)
'返回两个日期之间的天数

DateAdd
DateDiff("Var",Var1,Var2)
Var:日期或时间间隔因子：
Var1:日期或时间间隔倍数
Var2:日期或时间的基准
对两个日期或时间作加法
如下示例将95年1月31日加上一个月：
NewDate = DateAdd("m", 1, "31-Jan-95")
在这个示例中，DateAdd返回95年2月28日，而不是95年2月31日。如果date为96年1月31日，则返回96年2月29日，这是因为1996是闰年。
如果计算的日期是在公元100年之前，则会产生错误。

FormatDateTime
FormatDateTime(Date,vbShortDate)
转化为短日期格式
FormatDateTime(Date,vbLongDate)
转化为长日期格式
FormatDateTime(Date,vbShortTime)
转化为短时间格式
FormatDateTime(Date,vbLongTime)
转化为长时间格式
FromatDateTime(Date(),vbLongDate)
"以长日期格式显示