Access將秒數(shù)轉(zhuǎn)化為時(shí)分秒00:00:00的格式

有時(shí)我們?cè)谄渌浖袑?dǎo)出得到一串秒數(shù)。希望把改秒數(shù)轉(zhuǎn)化為時(shí)分秒00:00:00的格式

這里需要自定義一個(gè)函數(shù)去轉(zhuǎn)換

Function SecToTime(dblSecond As Double) As String
    SecToTime = Format((Int(dblSecond) / 60 / 60 / 24), "HH:MM:SS")
    If Int(dblSecond) <> dblSecond Then SecToTime = SecToTime & Round(dblSecond - Int(dblSecond), 2)
    SecToTime = IIf(Left(SecToTime, 6) = "00:00:", Mid(SecToTime, 7), IIf(Left(SecToTime, 3) = "00:", Mid(SecToTime, 4), SecToTime))
End Function

在窗體中調(diào)用該函數(shù)

Private Sub Command4_Click()
    Me.Text2 = SecToTime(Me.Text0)
End Sub

效果圖：