作业帮vb现在时间加秒数计算下个时间
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/20 18:04:35
vb现在时间加秒数计算下个时间
现在时间（格式如：8点18分39秒）,加上一个秒数变量s,怎样计算出结果?
现在时间（格式如：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:日）
第二个参数加上一个整形数,如是负值就是减.
第三个日期参数
再问： 怎么出了个n、h,都代表什么？是变量么？也没有定义啊
再答： 这个用字符串表示作为第一个的参数 如：DateAdd("h", s, d) ‘这表示增加s个小时 DateAdd("n", s, d) ‘这表示增加s分钟 这帮助文件查查。
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:日）
第二个参数加上一个整形数,如是负值就是减.
第三个日期参数
再问： 怎么出了个n、h,都代表什么？是变量么？也没有定义啊
再答： 这个用字符串表示作为第一个的参数 如：DateAdd("h", s, d) ‘这表示增加s个小时 DateAdd("n", s, d) ‘这表示增加s分钟 这帮助文件查查。