日期和時間函數示例之ASP網站開發
函數 語法 說明 示例
  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 19, 1962#
  函數 語法 說明 示例

  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 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 DateDiff("Var",Var1,Var2)
  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 年之前，則會產生錯誤。
  
  FormatDateTime FormatDateTime(Date,vbShortDate) 轉化為短日期格式 FromatDateTime(Date(),vbLongDate)
  "以長日期格式顯示
  FormatDateTime(Date,vbLongDate) 轉化為長日期格式
  FormatDateTime(Date,vbShortTime) 轉化為短時間格式
  FormatDateTime(Date,vbLongTime) 轉化為長時間格式