1. Now 传回系统的日期及时间。
使用方法:无 例:Now 传回值:2002/11/2 10:23:30 AM 备注:无
2. Date 传回系统的日期。
使用方法:无 例:Date 传回值:2002/11/2 备注:无
3. Time 传回系统的时间。
使用方法:无 例:Time 传回值:10;23:30 AM 备注:无
4. Year 传回系统的年份。
使用方法:Year[(1-3的时间函式)]例:Year(Now) 传回值:2002备注:无
5. Month 传回系统的月份。
使用方法:Month[(1-3的时间函式)]例:Month(Now) 传回值:11备注:无
6. Weekday 传回系统的星期几的数字。
使用方法:Weekday(1-3的时间函式,[星期天的开始数字])例:Weekday(Now,7) 传回值:14
备注:若不设定开始数字,则星期天为1,.....星期六为7。设定了则由星期天累加。
7. Day 传回系统的日子。
使用方法:Day[(1-3的时间函式)]例:Day(Now) 传回值:2备注:无
8. Hour 传回系统的小时。
使用方法:Hour[(1-3的时间函式)]例:Hour(Now) 传回值:11备注:无
9. Minute 传回系统的分钟。
使用方法:Minute[(1-3的时间函式)]例:Minute(Now) 传回值:23备注:无
10. Second 传回系统的秒。
使用方法:Second[(1-3的时间函式)]例:Second(Now) 传回值:30备注:无
11. Cdate 转换成日期变量型态。
使用方法:Cdate(日期表达式,上篇1-3项)例:Cdate(Now) 传回值:2002/11/2 10:23:30 AM
12.DateAdd 用以计算时差,即时间加减。
使用方法:DateAdd(时间代码,加减数,日期表达式)
例:DateAdd(H,2,Now) 传回值:2002/11/2 12:23:30 AM备注:日期表达式看备注
13. DateDiff 计算两段时间差距。
使用方法:DateDiff(时间代码,日期表达式1,日期表达式2)
例:DateDiff(H,2002/11/2 12:23:30 AM,Now) 传回值:2备注:日期表达式看备注
14. DatePart 传回一个日期中的一部分。
使用方法:DatePart(时间代码,日期表达式)例:Part(H,Now) 传回值:10
备注:日期表达式看备注
15. DateSerial 转换三个参数为日期形态。
使用方法:DateSerial(年,月,日)
例:DateSerial(2002,11,2) 传回值:2002/11/2备注:无
16. Date&#118alue 转换日期字符串成日期形态。
使用方法:Date&#118alue(日期字符串)
例:DateAdd(November 2,2002) 传回值:2002/11/2备注:无
17. IsDate 检查变量是否为日期形态或字符串可否转成日期。
使用方法:Date&#118alue(日期字符串)
例:Date&#118alue(November 2,2002) 传回值:True备注:无
18. MonthName 传回月份的名称。
使用方法:MonthName(日期字符串)例:MonthName(Now) 传回值:November备注:无
19. TimeSerial 转换三个参数为时间形态。
使用方法:TimeSerial(时,分,秒)例:TimeSerial(10,23,30) 传回值:10:23:30备注:无
20. WeekDayName 传回周几的名称。
使用方法:WeekDayName(日期字符串)例:WeekDayName(Now) 传回值:Saturday
【备注】以上内容皆假设该时间为2002年11月2日上午10时23分30秒星期六[...]内的参数可有可无。
时间代码(表达式):
yyyy 年q 季n 月d 日w 星期h 时m 分s 秒
函数 语法 说明 示例
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#函数 语法 说明 示例
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) 转化为长时间格式