:久留网
函数 语法 说明 示例
Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now
'' MyVar 包含当前的日期和时间。
Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date
久留网
'' MyDate 包含当前系统日期。 中国欢迎来到久留网
Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time
Www@96ew@com
'' 返回当前系统时间。 96ew@com
Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYear
96ew.com
MyDate = #October 19, 1962#
Www^96ew^com
函数 语法 说明 示例
Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now 中国欢迎来到久留网
'' MyVar 包含当前的日期和时间。
Www_96ew_com
Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date
中国久留网
'' MyDate 包含当前系统日期。 久留网
Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time
'' 返回当前系统时间。 Www_96ew_com
Year Year(Date) 取得给定日期的年份 Dim MyDate, MyYear
MyDate = #October 19, 1962#
''分派一日期。
MyYear = Year(MyDate) Www@96ew@com
'' MyYear 包含 1962。
Month Month(Date) 取得给定日期的月份 Dim MyVar MyVar = Month(Now)
'' MyVar包含当前月对应的数字。 96ew~com
Day Day(Date) 取得给定日期是几号 Dim MyDay MyDay = Day("October 19, 1962") 内容来自久留网
''MyDay包含 19。 96ew
Hour Hour(time) 取得给定时间是第几小时 Dim MyTime, MyHour 中国久留网
MyTime = Now MyHour = Hour(MyTime) 96ew^com
'' 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#
久留网
'' 分派日期 Www~96ew~com
MyWeekDay = Weekday(MyDate) 欢迎来到久留网
'' MyWeekDay 包含 6,MyDate 代表星期五 96ew^com
DateDiff DateDiff("Var",Var1,Var2) 久留网
Var:日期或时间间隔因子,有如下参数:
yyyy 年 m月 d 日 ww星期 h小时 s秒 Var1:第一个日期或时间
中国久留网
Var2:第二个日期或时间,比Var1晚 计算两个日期或时间的间隔 DateDiff("d",Date(),#1/1/2005#) Www_96ew_com
''返回离2005元旦还有多少
欢迎来到久留网
DateDiff("h",Date(),#1/1/2005#)
96ew.com
''返回离2005元旦还有多少小时 久.留.网
DateDiff("d",#1/1/2003#,#1/1/2005#)
''返回两个日期之间的天数
DateAdd DateDiff("Var",Var1,Var2) Www@96ew@com
Var:日期或时间间隔因子:
Var1:日期或时间间隔倍数 Www@96ew@com
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) 转化为长时间格式 Www~96ew~com
如果您发现本免费资源已过期,请点击报告错误提交过期信息,谢谢!