Question

VB求解~设计一个代码将秒数转化为小时，分钟~

Answer 1

Dim Bb(1 To 3) As String 'bb1-3对应时、分、秒
Bb(1) = Val(Text1.Text) \ 3600
Bb(2) = Val(Text1.Text) \ 60
Bb(3) = Val(Text1.Text) - Val(Bb(2)) * 60
If Bb(2) >= 60 Then Bb(2) = Bb(2) - 60 * Bb(1)
Label1.Caption = Val(Bb(1)) & " 时 " & Val(Bb(2)) & " 分 " & Val(Bb(3)) & " 秒"

看下是你说的不？
若不对请指正。谢谢

Answer 2

Private Sub Command1_Click()
Dim lngS As Long
lngS = Val(Text1.Text)
Debug.Print DateAdd("s", lngS, 0)
End Sub

追问

条件是程序运行时，通过文本框输入一个总秒数，单击计算按钮，总秒数化为小时，分钟和秒数在文本框输出。。能否写的仔细一点~VB一点也不懂~谢谢了！！！！

追答

Private Sub Command1_Click()
Dim lngS As Long
lngS = Val(Text1.Text)
Text1.Text= DateAdd("s", lngS, 0)
End Sub

追问

这一步说有错误~这是为啥

追答

我这里运行无误。

Answer 3

function to_min(secs as long)
to_min=secs\60
end function

function to_hour(secs as long)
to_hour=secs\3600
end function

追问

单击计算，然后将总秒数转化为小时，分钟和秒数的代码怎么写。。

追答

sub 计算_click()
msgbox text1.text & "秒等于" & cstr(cint(text1.text)\3600) & “小时，” & cstr((cint(text1.text) mod 3600)\60) & "分钟" & cstr(cint(text1.text) mod 60) & “秒”
end sub

这样就能把窗体中的text1里面输入的秒换算成几小时几分零几秒，
1小时=3600秒
1分钟=60秒

追问

谢了！！！！

追答

麻烦选择最佳答案