动态网页技术ASP日期和时间函数示例

来源: 中国站长站: Www.Chinaz.com

Now Now() 取得系统当前的日期和时间

Dim MyVar MyVar = Now

'' MyVar 包含当前的日期和时间。

Date Date() 取得系统当前的日期

  Dim MyDate MyDate = Date 

 
'' MyDate 包含当前系统日期。 

Time Time() 取得系统当前的时间 Dim MyTime MyTime = Time

yYear = 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) Chinaz~com

Second Second(time) 取得给守时间是第几秒

Dim MySec

MySec = Second(Now)

''MySec 包含代表当前秒的数字。 Chinaz.com

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:第一个日期或时间 Www.Chinaz.com

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:日期或时间间隔因子： Chinaz.com

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) 转化为长时间格式