主题：VB常用函数-日期时间类函数

1. Year(X)，Month(X)，Day(X)：取出年，月，日 
[格式]： 
P=Year(X) 
取出X“年”部分的数值 
P=Month(X) 
取出X“月”部分的数值 
P=Day(X) 
取出X“日”部分的数值 
[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30# 


2. Hour，Minute，Second函数：取出时，分，或秒 
[格式]： 
P=Hour(X) 
取出X“时”部分的数值 
P=Minute(X) 
取出X“分”部分的数值 
P=Second(X) 
取出X“秒”部分的数值 
[说明]：Hour的返回值是0---23之间 

[范例]： 
X=10:34:23 
P=Hour(X) 
Q=Minute(X) 
R=Second(X) 
则输出结果：P=10，Q=34，R=23 

3. DateSerial函数：合并年，月，日成为日期 
[格式]：DateSerial(Y,M,D) 
其中Y是年份，M为月份，D为日期 
[说明]： 
（1） M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。 
（2） 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。 
[范例]： 
P=DateSerial(2000,02,02) 
则结果为P=2000/02/02 


4．TimeSerial函数：合并时，分，秒成为时间 
[格式]：P=TimeSerial(H,M,S) 
其中H为小时数，M为分钟数，S为秒数 
[说明]：推算原理同上面的DateSerial 
[范例]： 
P=TimeSerial(6,32,45) 
结果为：P=6:32:45 


5．Date,Time,Now函数：读取系统的日期时间 
[格式]： 
P=Date() 
P=Time() 
P=Now() 
[说明]：这三个函数都无参数 
[范例]： 
若当前时间为2003年8月29日晚上19点26分45秒，则 
P=Now() 
结果为：P=2003-08-29 19:26:45 


6．MonthName：返回月份名称 
[格式]：P=MonthName(X) 
[说明]：X参数可传入1---12，则返回值为“一月”、“二月”……，但是在英文Windows环境下，返回的是”January”,”February”…… 
[范例]： 
P=MonthName(1) 
则P=“一月” 


7．WeekdayName：返回星期名称 
[格式]：P=WeekdayName(X) 
[说明]：X参数可传入1—7，则返回值为“星期日”，“星期一”……，但是在英文windows环境下，返回的是”Sunday”,”Monday”…… 
[范例]： 
P=WeekdayName(1) 
结果为：P=”星期日” 
标题VB常用函数辑