函数 |
语法 |
说明 |
示例 |
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) |
转化为短日期格式 |
FromatDateTime(Date(),vbLongDate) "以长日期格式显示 |
|
FormatDateTime(Date,vbLongDate) |
转化为长日期格式 |
|
FormatDateTime(Date,vbShortTime) |
转化为短时间格式 |
|
FormatDateTime(Date,vbLongTime) |
转化为长时间格式 |