vb中求输入秒数的转换问题

发布网友发布时间：2022-04-26 08:04

共3个回答

热心网友时间：2022-06-25 15:23

Private Sub Command1_Click()
Dim days, hours, minutes, t As Long
t = 1000000

days = Int(t / 86400)
t = t Mod 86400

hours = Int(t / 3600)
t = t Mod 3600

minutes = Int(t / 60)
t = t Mod 60

Print CStr(days) + "日" + CStr(hours) + "时" + CStr(minutes) + "分" + CStr(t) + "秒"

End Sub

热心网友时间：2022-06-25 15:23

等~~~~~

热心网友时间：2022-06-25 15:24

dim d as Integer=0
dim h as Integer=0
dim m as Integer=0
dim s1 as Integer=0
dim d1 as Integer =60*60*24
dim h1 as Integer =60*60
dim m as Integer=60

d=CInt(s/d1)
h=CInt((s mod d1)/h1)
m=CInt(((s mod d1) mod h1)/m1)
s=CInt(((s mod d1) mod h1) mod m1)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com