DateAdd() 函数怎么用啊?

显示全部楼层 · 2009-7-25 10:28:49

用 DateAdd 函数可实现日期、时间的加减用法：DateAdd(nStr, S, nTime)
nTime ：表示基准时间
S
：表示加上的时间、日期数值，负数表示减去
nStr：表示要加减的项目。共6个（年：y月：m日：d时：h分：n秒：s）例子：在窗体添加控件Command1Label1Label2 查看效果 Private Sub Command1_Click()
Label1.Caption = Now '获得当前时间
'加上 3 秒
S = 3: nStr = "s"
Label2.Caption...

千问 · 2009-7-25 10:28:49

给你个函数达到这个效果。＝＝＝＝＝＝＝＝＝＝＝＝＝＝Private Function Month_1(MyDate As String) As StringDim MyDate2 As DateMyDate2 = DateAdd("m", -1, DateSerial(Left(MyDate, 4), Right(MyDate, 2), 1)...