VB简单编写题求助!!高手来!!谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:49:17
输入以秒为单位表示的时间,编写程序,将其换算成几日几时几秒

只知道用秒输入的时间可以换算成 几时 几分 几秒。 没听说可以换算成日的，

比如 用系统时钟timer, 时=int(timer/3600) 分=int(timer/60) 秒=timer mod 60.

如果真要天的话，还是用now()函数好了。

不知道有没有现成的函数，下面可以一试，简单测试了一下，貌似对着呢，欢迎来消息讨论。
Public Function TransT(X As Long) As String
Dim lngD, lngH, lngM, lngS As Long
lngS = X Mod 60
lngM = Int(X / 60) Mod 60
lngH = Int(X / 3600) Mod 24
lngD = Int(X / 86400)
TransT = Trim(lngD) + "天" + Trim(lngH) + "时" + Trim(lngM) + "分" + Trim(lngS) + "秒"
End Function