日期函数的常用实例

日期函数应用

'‘获取当前日期
+uz%ym/yoRL0Dim MyDate1
c h Glq3b`]0MyDate1= Date
_0a,wy q R,T0msgbox  MyDate151Testing软件测试网$Soa'j*u}(F&_

,`PY7Nq&L-D2owMOk'q0'获取系统当前时间
@/A)m,N*L_p6Yd0 Dim MyTime51Testing软件测试网-vxmk!b
MyTime = Time   ' Return current system time.51Testing软件测试网N1YH:C,z-V(k
msgbox MyTime51Testing软件测试网'|8m!ca'n#aH2rm6f

d0O6l#_7?\0'判断是否当前日期
`9dC6N5H@:|LQ0Dim MyDate, YourDate, NoDate
6D~oOD\4C4S}/{(d/\0MyDate = "October 19, 2008": YourDate = #10/19/62#: NoDate = "Hello"51Testing软件测试网#Pan#\+F!i_(V
msgbox( IsDate(MyDate) ) ' Returns True.
s$]:XQv#qL
Gf0msgbox( IsDate(YourDate))  ' Returns True.
d#ns$Y
J0msgbox( IsDate(NoDate) )  ' Returns False.

2_AnBq`0'判断是否当前日期是否为空51Testing软件测试网2MwU4|p.m%G8w4_4I
Dim MyCheck51Testing软件测试网!c*na8b;A4GsB'd
MyCheck = IsEmpty(MyVar)   ' Returns True.
1[l|I:L1{p0MyVar = Null   ' Assign Null.51Testing软件测试网9`c#QU'r,A
MyCheck = IsEmpty(MyVar)   ' Returns False.51Testing软件测试网j4e+|ia
MyVar = Empty   ' Assign Empty.51Testing软件测试网+V%N)f P5^6hk+EK
MyCheck = IsEmpty(MyVar)   ' Returns True.

2\2Gi _2qI'p I0
6NO8m\lUmb[0'判断是否当前日期
,I0`3u9t9`/L0Dim MyVar, MyCheck51Testing软件测试网`qi$R1i/~2n0z/W
MyCheck = IsEmpty(MyVar)   ' Returns True.51Testing软件测试网i??
HmQ9d@&u2p
MyVar = Null   ' Assign Null.51Testing软件测试网+D3e|!NT
MyCheck = IsEmpty(MyVar)   ' Returns False.
(q o)RNROm0MyVar = Empty   ' Assign Empty.51Testing软件测试网TBiD?D j'`
MyCheck = IsEmpty(MyVar)   ' Returns True51Testing软件测试网U0V/_DJq3B
'获取日51Testing软件测试网(n
m
x2^@Di
Dim MyDay
R+T)i6qhzz0MyDay = Day("October 19, 1962") 51Testing软件测试网?4tzd!HUjLC(^

'获取当前分钟
pokc-fc8M)?0 Dim MyVar51Testing软件测试网'g/Q:Be [
MyVar = Minute(Now) 51Testing软件测试网R3dq_5}8c;l@D

'获取获取小时51Testing软件测试网+u8C3C(c2JeU k
Dim MyTime, MyHour51Testing软件测试网\8?N(MN#b}#y
MyTime = Now
x-_X2o:M0UthPf0MyHour = Hour(MyTime) ' MyHour contains the number representing 51Testing软件测试网7},ya1^z5S:H/j

1@'TrZ?Wa-i-F#Z0F0'获取当前秒
@$C aFS%r0 Dim MySec
F(X1Kb+w z0MySec = Second(Now)
"F5d N{?lK]0' MySec contains the number representing the current second.
%dQ\4YKK:O0

'日期相加

Dim text
:Y x$OB*bZ[QD0F0text=DateAdd("yyyy", 1, "31-08-2008")51Testing软件测试网M(WsyT

msgbox text51Testing软件测试网8H(_.siYwV

as|J0Zw0可以通过修改来改变日期变化，比如要在当前日期前要加2个月51Testing软件测试网#s+[r$jY lB6}+v

)cF%^`8Q;p0Dim text51Testing软件测试网r!lL2S.`&S Ht
text=DateAdd("m", 2, date)

msgbox text