ตัวอย่างฟังก์ชันวันที่และเวลาสำหรับการพัฒนาเว็บไซต์ ASP
ตัวอย่างคำอธิบายไวยากรณ์ของฟังก์ชัน
Now Now() รับวันที่และเวลาปัจจุบันของระบบ Dim MyVar MyVar = Now
'' MyVar มีวันที่และเวลาปัจจุบัน
Date Date() รับวันที่ปัจจุบันของระบบ Dim MyDate MyDate = Date
'' MyDate มีวันที่ของระบบปัจจุบัน
เวลา Time() รับเวลาของระบบปัจจุบัน Dim MyTime MyTime = Time
'' ส่งคืนเวลาของระบบปัจจุบัน
Year Year(Date) รับปีของวันที่ที่กำหนด Dim MyDate, MyYear
MyDate = #19 ตุลาคม 1962#
ตัวอย่างคำอธิบายไวยากรณ์ของฟังก์ชัน
Now Now() รับวันที่และเวลาปัจจุบันของระบบ Dim MyVar MyVar = Now
'' MyVar มีวันที่และเวลาปัจจุบัน
Date Date() รับวันที่ปัจจุบันของระบบ Dim MyDate MyDate = Date
'' MyDate มีวันที่ของระบบปัจจุบัน
เวลา Time() รับเวลาของระบบปัจจุบัน Dim MyTime MyTime = Time
'' ส่งคืนเวลาของระบบปัจจุบัน
Year Year(Date) รับปีของวันที่ที่กำหนด Dim MyDate, MyYear
MyDate = #19 ตุลาคม 1962#
''กำหนดวัน..
MyYear = ปี (MyDate)
'' MyYear ประกอบด้วยปี 1962
เดือน เดือน (วันที่) รับเดือนของวันที่ที่กำหนด Dim MyVar MyVar = เดือน (ตอนนี้)
'' MyVar มีหมายเลขที่ตรงกับเดือนปัจจุบัน
วัน วัน(วันที่) รับวันที่ของวันที่ที่กำหนด Dim MyDay MyDay = วัน (19 ตุลาคม 2505)
''MyDay มี 19
ชั่วโมง ชั่วโมง(เวลา) รับชั่วโมงของเวลาที่กำหนด Dim MyTime, MyHour
MyTime = ตอนนี้ MyHour = ชั่วโมง (MyTime)
'' MyHour มีค่าตัวเลขที่แสดงถึงเวลาปัจจุบัน
นาที นาที (เวลา) รับ Dim MyVar นาทีของเวลาที่กำหนด
MyVar = นาที(ตอนนี้)
วินาที วินาที(เวลา) รับจำนวนวินาทีของเวลาที่กำหนด Dim MySec
MySec = วินาที (ตอนนี้)
''MySec มีตัวเลขที่แสดงถึงวินาทีปัจจุบัน
WeekDay WeekDay(Date) รับค่าจำนวนเต็มของวันในสัปดาห์สำหรับวันที่ที่กำหนด 1 หมายถึงวันอาทิตย์ 2 หมายถึงวันจันทร์ และอื่นๆ ใน Dim MyDate, MyWeekDay
MyDate = #19 ตุลาคม 1962#
''วันที่มอบหมาย.
MyWeekDay = วันธรรมดา(MyDate)
'' MyWeekDay มี 6 MyDate หมายถึงวันศุกร์
DateDiff DateDiff(Var,Var1,Var2)
Var: ปัจจัยวันที่หรือช่วงเวลา โดยมีพารามิเตอร์ต่อไปนี้:
ปปปป ปี เดือน ง วัน ww สัปดาห์ ชั่วโมง วินาที Var1: วันที่หรือเวลาแรก
Var2: วันที่หรือเวลาที่สอง หลังจาก Var1 คำนวณช่วงเวลาระหว่างวันที่หรือเวลาสองวัน DateDiff(d,Date(),#1/1/2005#)
''ย้อนกลับไปอีกกี่วันก็จะถึงวันปีใหม่ 2548
DateDiff(h,Date(),#1/1/2005#)
''กลับมาอีกกี่ชั่วโมงจะถึงวันปีใหม่ 2548
DateDiff(d,#1/1/2003#,#1/1/2005#)
''ส่งกลับจำนวนวันระหว่างวันที่สองวัน
DateAdd DateDiff(Var,Var1,Var2)
Var: ปัจจัยวันที่หรือช่วงเวลา:
Var1: หลายช่วงวันที่หรือเวลา
Var2: ฐานของวันที่หรือเวลา เพิ่มสองวันที่หรือเวลา ตัวอย่างต่อไปนี้บวกหนึ่งเดือนเป็นวันที่ 31 มกราคม 1995:
NewDate = DateAdd(ม., 1, 31-ม.ค.-95)
ในตัวอย่างนี้ DateAdd จะส่งกลับวันที่ 28 กุมภาพันธ์ 1995 ไม่ใช่ 31 กุมภาพันธ์ 1995 ถ้าวันที่คือ 31 มกราคม 1996 29 กุมภาพันธ์ 1996 จะถูกส่งกลับเนื่องจากปี 1996 เป็นปีอธิกสุรทิน
หากวันที่คำนวณอยู่ก่อน 100 AD จะเกิดข้อผิดพลาด
FormatDateTime FormatDateTime(Date,vbShortDate) แปลงเป็นรูปแบบวันที่แบบสั้น FromatDateTime(Date(),vbLongDate)
แสดงในรูปแบบวันที่แบบยาว
FormatDateTime(Date,vbLongDate) แปลงเป็นรูปแบบวันที่แบบยาว
FormatDateTime(Date,vbShortTime) แปลงเป็นรูปแบบเวลาสั้น
FormatDateTime(Date,vbLongTime) แปลงเป็นรูปแบบเวลานาน