vb现在时间加秒数计算下个时间
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/08 13:17:23
vb现在时间加秒数计算下个时间
现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?
现在时间(格式如:8点18分39秒),加上一个秒数变量s,怎样计算出结果?
![vb现在时间加秒数计算下个时间](/uploads/image/z/18210345-33-5.jpg?t=vb%E7%8E%B0%E5%9C%A8%E6%97%B6%E9%97%B4%E5%8A%A0%E7%A7%92%E6%95%B0%E8%AE%A1%E7%AE%97%E4%B8%8B%E4%B8%AA%E6%97%B6%E9%97%B4)
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分钟 这帮助文件查查。