Question

DateAdd() 函数怎么用啊?

dateAdd() 函数怎么用啊?
我要的效果就是当用户输入"199505".保存到数据库中的数字却要变成"199504".即:月份减1;搜了百度好像"dateAdd()"能帮我解决这个问题.可是
返回的时间不对.后来一查:"注意 DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。"
这句话看了老半天看不懂!
要求用函数达到我说的效果!别的函数也行!谁教教我呀..如果是if else什么的方法就算了!

Answer 1

用 DateAdd 函数可实现日期、时间的加减
用法：DateAdd(nStr, S, nTime)
nTime ：表示基准时间
S ：表示加上的时间、日期数值，负数表示减去
nStr ：表示要加减的项目。共6个（年：y 月：m 日：d 时：h 分：n 秒：s）

例子：在窗体添加控件Command1 Label1 Label2 查看效果

Private Sub Command1_Click()
Label1.Caption = Now '获得当前时间

'加上 3 秒
S = 3: nStr = "s"
Label2.Caption = DateAdd(nStr, S, Label1.Caption)

' '减去 4 分
' S = 4: nStr = "n"
' Label2.Caption = DateAdd(nStr, S, Label1.Caption)

' '加上 12 时
' S = 12: nStr = "h"
' Label2.Caption = DateAdd(nStr, S, Label1.Caption)

' '加上 13 天
' S = 13: nStr = "s"
' Label2.Caption = DateAdd(nStr, S, Label1.Caption)

' '加上 5 月
' S = 5: nStr = "m"
' Label2.Caption = DateAdd(nStr, S, Label1.Caption)

' '加上 3 年
' S = 3: nStr = "y"
' Label2.Caption = DateAdd(nStr, S, Label1.Caption)

End Sub

'参考资料：http://user.qzone.qq.com/32063270/blog/1222449173

Answer 2

给你个函数达到这个效果。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Function Month_1(MyDate As String) As String
Dim MyDate2 As Date
MyDate2 = DateAdd("m", -1, DateSerial(Left(MyDate, 4), Right(MyDate, 2), 1))
Month_1 = Year(MyDate2) & Format(Month(MyDate2), "00")
End Function

Private Sub Command1_Click()
MsgBox Month_1("199505")
End Sub