1 / 6
文档名称:

vb日期函数.doc

格式:doc   大小:32KB   页数:6页
下载后只包含 1 个 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_例子
'窗体年月.12个月前的月初日(1年前的同月)
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")
'窗体年月.1个月前的月末日
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=2

分享好友

预览全文

vb日期函数.doc

上传人:iris028 2022/5/9 文件大小:32 KB

下载得到文件列表

vb日期函数.doc

相关文档