本文提供vbscript时间函数的概要介绍可应对一般应用具体特殊需求可进一步搜索
date() 获取日期格式
time() 获取时间格式::
now() 获取日期和时间 格式 ::
d=date()
获取年份year(d)
获取月份month(d)
获取日子day(d)
获取星期几weekday(d)
t=time()
获取小时hour(t)
获取分钟minute(t)
获取秒数second(t)
日期相加函数DateAdd(interval number date)
可用该函数从日期中添加或减去指定时间间隔
参数说明
interval运算的基准间隔
number加上多少可为负数
date基准日期
下面是interval的可选值注意加上引号
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
举例
计算明天
tomorrow=DateAdd("d"date())
年月日的前一天
preday=DateAdd("d""")
更详细用法请搜索
日期间隔函数DateDiff(interval date date[ firstdayofweek][ firstweekofyear]])
计算两个日期之间相差的间隔
例如可以使用 DateDiff 来计算两个日期之间相隔几日或计算从今天起到年底还有多少个星期如果date比date 晚则返回负数
参数说明
interval同DateAdd()函数
Datedate 进行运算的两个日期
可选参数
firstdayofweek 指定一个星期的第一天的常数如果未予指定则以星期日为第一天
当计算两个日期相差几周时(时间间隔符号 “w” 或 “ww”)该参数会影响结果具体请搜索
firstweekofyear指定一年的第一周怎么确定如果未予指定则以包含 月 日的星期为第一周具体请搜索
其他函数
DateSerial(year month day) 将数值换算为日期变量返回值类型同date()函数例如如果day=则自动计算到下个月再例如DateSerial( ) 则计算 年月日的十年零两个月又一天 之前的日期也就是年月日
DatePart(interval date[firstdayofweek[ firstweekofyear]]) 返回指定时间部分的数值例如可以使用DatePart 计算某个日期是星期几或目前为几点钟参数同上面
DateValue(date)将各种日期格式串转化为日期变量返回值类型同date()函数例如除了 // 和 // 之外DateValue 也识别 December 和 Dec
TimeValue(time)将各种时间格式串转化为时间变量原理同DateValue
TimeSerial(hour minute second) 将数值转化为时间变量返回值类型和time()函数相同原理同DateSerial
Timer()午夜开始到现在经过的秒数
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 #
函数 语法 说明 示例
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 #
分派一日期
MyYear = Year(MyDate)
MyYear 包含
Month Month(Date) 取得给定日期的月份 Dim MyVar MyVar = Month(Now)
MyVar包含当前月对应的数字
Day Day(Date) 取得给定日期是几号 Dim MyDay MyDay = Day("October ")
MyDay包含
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) 取得给定日期是星期几的整数表示星期日表示星期一依此类推 Dim MyDate MyWeekDay
MyDate = #October #
分派日期
MyWeekDay = Weekday(MyDate)
MyWeekDay 包含 MyDate 代表星期五
DateDiff DateDiff("Var"VarVar)
Var:日期或时间间隔因子有如下参数
yyyy 年 m月 d 日 ww星期 h小时 s秒 Var:第一个日期或时间
Var:第二个日期或时间比Var晚 计算两个日期或时间的间隔 DateDiff("d"Date()#//#)
返回离元旦还有多少
DateDiff("h"Date()#//#)
返回离元旦还有多少小时
DateDiff("d"#//##//#)
返回两个日期之间的天数
DateAdd DateDiff("Var"VarVar)
Var:日期或时间间隔因子
Var:日期或时间间隔倍数
Var:日期或时间的基准 对两个日期或时间作加法 如下示例将 年 月 日加上一个月
NewDate = DateAdd("m" "Jan")
在这个示例中DateAdd 返回 年 月 日而不是 年 月 日如果 date 为 年 月 日则返回 年 月 日这是因为 是闰年
如果计算的日期是在公元 年之前则会产生错误
FormatDateTime FormatDateTime(DatevbShortDate) 转化为短日期格式 FromatDateTime(Date()vbLongDate)
"以长日期格式显示
FormatDateTime(DatevbLongDate) 转化为长日期格式
FormatDateTime(DatevbShortTime) 转化为短时间格式
FormatDateTime(DatevbLongTime) 转化为长时间格
