vb现在时间加秒数计算下个时间现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/25 21:27:14
vb现在时间加秒数计算下个时间现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?vb现在时间加秒数计算下个时间现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算

vb现在时间加秒数计算下个时间现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?
vb现在时间加秒数计算下个时间
现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?

vb现在时间加秒数计算下个时间现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?
Private Sub Command1_Click()
    Dim d As Date
    d = "8:18:39"
    Dim s As Integer
    s = 33
    d = DateAdd("s", s, d)
    MsgBox Format(d, "h点n分s秒") '把日期格式化为 *点 *分 *秒
End Sub


DateAdd函数对日期变量进行加减.
第一个参数是加减的单位,(s表示秒;h:时; n:分; y:年; m:月; d:日)
第二个参数加上一个整形数,如是负值就是减.
第三个日期参数