在Access VBA中将秒转换为小时、分钟、秒格式

Function ConvertSeconds(seconds As Long) As String
    Dim hours As Long
    Dim minutes As Long
    
    hours = seconds \ 3600
    seconds = seconds Mod 3600
    minutes = seconds \ 60
    seconds = seconds Mod 60
    
    ConvertSeconds = Format(hours, "00") & ":" & Format(minutes, "00") & ":" & Format(seconds, "00")
End Function

Sub TestConvertSeconds()
    Dim totalSeconds As Long
    Dim formattedTime As String
    
    totalSeconds = 3665 ' 示例秒数
    formattedTime = ConvertSeconds(totalSeconds)
    
    MsgBox formattedTime ' 显示格式化后的时间
End Sub