上表的语法格式中没有括号的表示无参数，date和time分别表示日期类型和时间类型的参数。

部分日期时间型函数用法举例。

关键字  日期时间型函数

代码 

dim today, mydate, mytime
Sub print(x)
x = "<FONT color=red>" &x
x = x &"</FONT>" 
document.write (x)
End sub
document.write "<FONT size=4><p align ='center'>"
document.write "VB部分日期时间型函数用法举例"
document.write "</FONT></P>"
today = date
document.write "Today is "
print today
document.write "<br>"
document.write "变量today 的类型是" &TypeName(today) &"<BR>"
document.write "今天是"
print year(date) &"年" 
print MonthName(Month(date)) 
print day(date) 
print "日<br>"
document.write "用格式化函数FormatDateTime(x,1)转换的日期是"
print formatDateTime(date,1) &"<BR>"
if ( Now = date& time) then 
print "NOW=DATE + TIME<BR>"
else
print "NOW包含DATE 和 TIME<BR>"
end if
document.write "今天是星期几？<BR>"
print "今天是" & WeekdayName(weekday(date)) &"<BR>"
print "今天是星期" & weekday(date)-1 &"<BR>"
today ="march, 21,1994"
Mydate = Cdate(today)
print mydate&"<BR>"
birthday= DateSerial(1994,3,21)
document.write "我的生日是" & birthday&"，"
num = DateDiff("w", birthday,date)
print "那您已经过了" & num &"周<BR>"
Mydata = DateAdd("d",1,date)
Print "明天是" &FormatDateTime(Mydata,1)
print DateValue("1989-6-4") 
print #1989-6-4#-1 & "<BR>" 
document.write "What time it is Now ? " 
print "Time is " & Time & "<BR>"
document.write "What time it is HOUR ? " 
print "Hour in " & Hour(Time) & "<BR>"
document.write "What time it is Minute?" 
print "Minute is " & Minute(Time) & "<BR>"
document.write "What time it is Second?" 
print "Second is " & Second(Time) & "<BR>"
MyTime = TimeSerial(12-6,15,10)
print Mytime& "<BR>"
document.write "今天是在第"
print DatePart("q",date)
document.write "季度<p>"
document.write"<Font size =4>再见</Font>"

代码注释

• 给出日期常量的方法有几种。用字符串"1994-3-21","94,03,20","March,21,1994"都可以，当然是在可以接收字符串的函数处使用。必须用日期型的地方可以用“#”号括起来，如#94-3-21#。

• 月名和星期名在中文版Window98中返回的是“五月”或“星期四”这样的名称，而不是英文名。它取决于系统设定的日期格式。

相关文章

下表给出interval参数的可选值，它适用于dateadd, Datediff, DatePart三个函数。