VB问题给你一万秒，变成多少小时，多少分，多少秒？

来源：百度知道编辑：UC知道时间：2024/06/23 09:01:01

当你输入10000秒时，直接跳出小时，分钟和秒数

Private Sub Command1_Click()
Dim S As Integer
Dim D As Date

S = Int(Text1.Text)
D = TimeSerial(0, 0, S)
MsgBox "共" + CStr(D)
End Sub

规定他们的进制就可以了呀

楼上的回答的很不错
只是最多只能处理32767秒
也就是9:06:07
呵呵
不过楼主可以把一楼的方法改进一下
TimeSerial函数的每个参数都必须在[-32768,32767]范围内

t=10000
h=int(t/3600)
m=int(t/60)-h*60
s=t mod 60
print h;m;s

VB问题 给你一万秒，变成多少小时，多少分，多少秒？