Question

vb如何在获得毫秒数而输出时分秒毫秒？

我使用vb 中的timegettime函数得到毫秒数，我要怎样才能输出hh:mm:ss:ms格式的时间呀？希望给出算法。包采纳加好评！

Answer 1

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Debug.Print Format(Time, "hh:mm:ss") & ":" & Right(timeGetTime, 3)
End Sub

Answer 2

添加一个text

Text1.Text = Int(Val(Text1.Text) / 360000) & "小时" & Int(((Val(Text1.Text)) Mod 360000) / 60000) & "分" & Int(((Val(Text1.Text) Mod 360000) Mod 60000) / 1000) & "秒"