Simone
用 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
