vb日期函数.doc

函数名
函数功能
语法结构
DATE 函数
返回包含系统日期的VARIANT(DATE) 。
DATE
DATEADD函数
返回包含一个日期的VARIANT(DATE) ，这个日期还加上了一段时间间隔。
DateAdd(inl(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, ), "yyyy/mm/dd")
'窗体年月．月初日期
strStartDate = Format(CDate(), "yyyymmdd")
'窗体年月．月末日期
strEndDate = Format(DateAdd("d", -1, DateAdd("m", 1, CDate())), "yyyymmdd")
'窗体年月．１个月前的月末日
strBeforeDate = Format(DateAdd("D", -1, ), "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", , #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=2