ASP日期和时间函数示例

函数     语法               说明                         示例
Now Now() 取得系统当前的日期和时间 Dim MyVar MyVar = Now
Date Date() 取得系统当前的日期 Dim MyDate MyDate = Date
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 函数

描述
返回已添加指定时间间隔的日期。
语法
DateAdd(interval, number, date)

 

 

DateAdd 函数的语法有以下部分：

 

 

 

部分 描述
interval 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
number 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
date 必选。Variant 或要添加 interval 的表示日期的文字。 

设置
interval 参数可以有以下值：

 

 

 

设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒

说明
可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。

 

 

DateAdd 函数不会返回无效日期。如下示例将 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 年之前则会产生错误。

 

 

 

如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。

FormatDateTime 函数

描述
返回表达式，此表达式已被格式化为日期或时间。
语法
FormatDateTime(Date[,NamedFormat])

 

FormatDateTime 函数的语法有以下参数：

 

 

参数 描述
Date 必选。要被格式化的日期表达式。
NamedFormat 可选。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。

设置
NamedFormat 参数可以有以下值：

 

常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。 
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。