作业帮vb现在时间加秒数计算下个时间现在时间（格式如：8点18分39秒）,加上一个秒数变量s,怎样计算出结果?
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/28 05:52:57
xS_KP*,%/m+&A]MZ{RPmE
ť]ʾLM|WiεN 䞜?nݽ&]CEKurUMý:֎cpZ.Mm죰o´%EgoX%A9R`XB}NjSj<|9?tT^h!܈e8I+h̦t=fh䗕
(ƞ~?$u44< `SY%,²6&?R"|1-Iaڿٴ$Cjdi&\*DzM ~e&0L;)RU/X픋ݱ: BnAr |4Q7hWm;?^ "sF<[GnY5WAeE0 fU"2A (y )*-= ])ٴyg0Bn$C E
t/o%j
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:日）
第二个参数加上一个整形数,如是负值就是减.
第三个日期参数