vbscript:日期函数的语法简表

最新推荐文章于 2024-12-25 17:17:33 发布

fatfoxz

最新推荐文章于 2024-12-25 17:17:33 发布

阅读量1.2k

点赞数

其他专栏收录该内容

23 篇文章

订阅专栏

名称	语法	功能	例句
CDate	CDate(date)	返回date类型的表达式，date 参数是任意有效的日期或字符串表达式。	MyDate = "October 19, 1962" MyShortDate = CDate(MyDate)
Date	Date	返回当前系统日期。不带（）	MyDate = Date
DateAdd	DateAdd(interval, number, date)	返回已添加指定时间间隔的日期。	下例将95 年1 月31 日加上一个月： NewDate = DateAdd("m", 1, "31-Jan-95")
DateDiff	DateDiff(interval,date1, date2)	返回两个日期之间的时间间隔。	xx= DateDiff("d", Now, theDate)
DatePart	DatePart(interval, date)	返回给定日期的指定部分。参考interval参数的可选值。	GetQuarter = DatePart("q", TheDate)
DateSerial	DateSerial(year, month, day)	对于指定的年、月、日，返回 Date 子类型的 Variant。	MyDate2 = DateSerial(1990-10, 8-2, 1)
DateValue	DateValue(date)	返回 Date 子类型的变量。date 参数应是字符串。	DateValue("September 11, 1963")
Day	Day(date)	返回1 到 31 之间的一个整数，代表某月中的一天。	MyDay = Day("October 19, 1962") 'MyDay =19。
Hour	Hour(Time)	返回0到23之间的一个整数，代表某小时数。Time参数是时间表达式。	MyTime = Now MyHour = Hour(MyTime)
IsDate	IsDate(expression)	返回Boolean值指明某表达式是否可以转换为日期。expression 参数可以是任意可被识别为日期和时间的日期表达式或字符串表达式。	MyDate = "October 19, 1962" YourDate = #10/19/62# NoDate = "Hello" MyCheck= IsDate(MyDate) 'True MyCheck= IsDate(YourDate)'True MyCheck= IsDate(NoDate) 'False
Minute	Minute(Time)	返回0到59之间的整数，代表分钟。	MyVar = Minute(Now) '=41
Month	Month(date)	返回 1到12 之间的一个整数，代表某月份数。	MyVar=Minute("October 19, 1962") 'MyVar = 10
MonthName	MonthName(month)	返回表明指定月份的字符串。month是数值	thismanth = MonthName(10)' ’thismanth = "October"
Now	Now	返回系统的当前日期和时间值。	Today = Now ' today = "02-07-04 11:41:14"
Second	Second(Time)	返回 0到 59之间的一个整数，代表某秒数。	MySec = Second(Now) 'MySec =14
Time	Time	返回当前的系统时间。	MyTime = Time 'MyTime = "11:41:14"
Timer	Timer	返回午夜 12 时以后已经过去的秒数。
TimeSerial	TimeSerial(h,m,s)	返回含有指定时h、分m、秒s的时间。	MyTime1 = TimeSerial(12-6,-15,0) ' 返回 "5:45:00 AM."
TimeValue	TimeValue(time)	返回包含时间的 Date子类型的变量。 time 参数通常是代表时间表达式。	MyTime = TimeValue("4:35:17 PM")
Weekday	Weekday(date)	返回代表一星期中某天的整数0到6。	MyDate = #October 19, 1962# MyWeekDay = Weekday(MyDate)
WeekdayName	WeekdayName(weekday)	返回指定某天是星期几的字符串。	MyDate= WeekDayName(1)'Sunday
Year	Year(date)	返回一个代表某年的整数。	MyYear = Year(now) '2002
FormatDateTime	FormatDateTime(Date[, NamedFormat])	返回表达式，此表达式已被格式化为日期或时间。NamedFormat=0,1,2,3,4	GetCurrentDate = FormatDateTime(Date, 1)

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

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

关键字 日期时间型函数

代码

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

代码注释

给出日期常量的方法有几种。用字符串"1994-3-21","94,03,20","March,21,1994"都可以，当然是在可以接收字符串的函数处使用。必须用日期型的地方可以用“#”号括起来，如#94-3-21#。
月名和星期名在中文版Window98中返回的是“五月”或“星期四”这样的名称，而不是英文名。它取决于系统设定的日期格式。

相关文章

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