下载此文档

vb日期函数.doc


文档分类:IT计算机 | 页数:约6页 举报非法文档有奖
1/6
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/6 下载此文档
文档列表 文档介绍
函数名
函数功能
语法结构
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日期函数 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数6
  • 收藏数0 收藏
  • 顶次数0
  • 上传人iris028
  • 文件大小32 KB
  • 时间2022-05-09