(编辑:jimmy 日期: 2025/1/10 浏览:2)
asp之日期和时间函数示例
可以使用日期和时间函数来得到各种格式的日期和时间
Dim MyVar MyVar = Now
' MyVar
包含当前的日期和时间。DateDate()取得系统当前的日期Dim MyDate MyDate = Date
' MyDate
包含当前系统日期。TimeTime()取得系统当前的时间Dim MyTime MyTime = Time
Dim MyDate, MyYear
MyDate = #October 19, 1962#
MyYear = Year(MyDate)
' MyYear
包含 1962
。MonthMonth(Date)取得给定日期的月份Dim MyVar MyVar = Month(Now)
Dim MyDay MyDay = Day("October 19, 1962")
19
。HourHour(time)取得给定时间是第几小时Dim MyTime, MyHour
MyTime = Now MyHour = Hour(MyTime)
' MyHour
包含代表当前时间的数值。MinuteMinute(time)取得给定时间是第几分钟Dim MyVar
MyVar = Minute(Now)
SecondSecond(time)取得给守时间是第几秒Dim MySec
MySec = Second(Now)
'MySec
包含代表当前秒的数字。WeekDayWeekDay(Date)取得给定日期是星期几的整数,1表示星期日,2表示星期一,依此类推Dim MyDate, MyWeekDay
MyDate = #October 19, 1962#
MyWeekDay = Weekday(MyDate)
'
MyWeekDay
包含 6,MyDate
代表星期五DateDiffDateDiff("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 年之前,则会产生错误。
FormatDateTimeFormatDateTime(Date,vbShortDate)转化为短日期格式FromatDateTime(Date(),vbLongDate)