059 - 自定义一个毫秒转时分秒函数 Sub MS2MHS(ms As Int) As String

IPSC1978.GICP.NET

059 - 自定义一个毫秒转时分秒函数 Sub MS2MHS(ms As Int) As String - 文章首页→返回版区

■标题:059 - 自定义一个毫秒转时分秒函数 Sub MS2MHS(ms As Int) As String

■作者:IPSC [2025/3/26 18:41:09]
[vb]

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Msgbox(MS2MHS(12345678),"毫秒转时分秒") '返回 03:25:46
End Sub

'计算毫秒并转换格式为时:分:秒
Sub MS2MHS(ms As Int) As String
Dim Seconds As Int, Minutes As Int,Hours As Int
Seconds = Round(ms / 1000) '将毫秒数除以1000转为秒(四舍五入)
Minutes = Floor(Seconds / 60) '将秒数除以60转为分钟
If Minutes>=60 Then
Hours=Floor(Minutes / 60)
Minutes=Minutes-Hours*60
End If
Seconds = Seconds Mod 60 '将总秒数除以60获得的余数就是秒数
Return NumberFormat(Hours,2, 0) & ":" & NumberFormat(Minutes, 2, 0) & ":" & NumberFormat(Seconds, 2, 0)
End Sub

[/vb]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
58 毫秒 .