函数名
函数功能
语法结构
DATE 函数
返回包含系统日期的VARIANT(DATE) 。
DATE
DATEADD函数
返回包含一个日期的VARIANT(DATE) ，这个日期还加上了一段时间间隔。
DateAdd(interval,number,date)
DateDiff函数
返回Variant(Long)的值，表示两个指定日期间的时间间隔数目。
DateDiff (interval,date1,date2,firstdayofweek [，firstweekofyear])
DatePart函数
返回一个包含已知日期的指定时间部分的Variant(Integer)
DatePart(interval,date[，firstdayofweek][，firstweekofyear ] )
DateSerial函数
返回包含指定的年月日的Variant(Date)
DateSerial( year ，month ，day )
DateValue函数
返回一个Variant(Date)
DateValue(Date)
Day函数
返回一个Variant(Integer) ，其值为1到31之间的整数，表示一个月中的某一日
Day(Date)
Hour函数
返回一个Variant(Integer) ，其值为0到23之间的整数，表示一天之中的某一个钟点
Hour(time)
Minute函数
返回一个Variant(Integer) ，其值为0到59之间的整数，表示一个小时中的某一分钟
Minute(time
Now函数
返回一个Variant(Date) ，根据计算机系统设置的日期和时间来指定日期和时间
Now
Second函数
返回一个Variant(Integer) ，其值为0到59之间的整数，表示一分钟之内的某一秒钟
Second(time)
Time函数
返回一个指明当前系统时间的Variant(Date)
Time
Time语句
设置系统时间
Time = time
Timer函数
返回一个Single，代表从午夜开始到现在所经过的秒数
Timer
TimeSerial函数
数 返回一个Variant(Date) ，包含具有现在时、分、秒的时间。
TimeSerial(hour，minute，second)
TimeValue函数
返回一个包含时间的Variant(Date)
TimeValue(time)
Weekday函数
返回一个Variant(Integer) ，包含一个整数，代表某个日期是星期几
Weekday(date[，firstdayofweek])
Year函数
返回一个Variant(Integer) ，包含表示年份的整数
Year(Date)
VBA函数_DateAdd_例子
'窗体年月．１２个月前的月初日（１年前的同月）
strYearDate = Format(DateAdd("YYYY", -1, Me.txtPrintdate), "yyyy/mm/dd")
'窗体年月．月初日期
strStartDate = Format(CDate(Me.txtYm), "yyyymmdd")
'窗体年月．月末日期
strEndDate = Format(DateAdd("d", -1, DateAdd("m", 1, CDate(Me.txtYm))), "yyyymmdd")
'窗体年月．１个月前的月末日
strBeforeDate = Format(DateAdd("D", -1, Me.txtPrintdate), "yyyy/mm/dd")
For lngI = 1 To 12
strDate1 = Format(DateAdd("m", (13 - lngI) * -1, Format(strStartDate, "@@@@/@@/@@")), "yyyymmdd")
......
NEXT lngI
F_YM = Format(DateAdd("M", 1, PAR_NEN), "YYYY/MM")
DateAdd("s", Buffer2.LeaseObtained, #1/1/1970#)
Nz(strDate1, "")
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=”星期日”
