给你一个实例吧。
看看吧,此例是一个实现时间相加的实例
If MaskEdBox2.Text = "0000-00-00" Then
dd = MsgBox("请确认是否需要更改此日期", vbYesNo + vbQuestion, "提示")
If dd = vbYes Then
MaskEdBox2.SetFocus
Exit Sub
End If
If dd = vbNo Then
Exit Sub
End If
End If
If Text3.Text = "" Then
Exit Sub
End If
MaskEdBox2.Format = "yyyy-mm-dd"
d1 = CDate(MaskEdBox2.Text)
d2 = DateAdd("d", CInt(Text3), d1)
MaskEdBox3.Text = d2