تحويل الثواني الي فورمات hh:mm:ss

تفضل هذا المثال أخي الكريم

تحياتي :happy:

Example.zip

جزاك الله خيرا اخي الكريم

بسم الله الرحمن الرحيم

تفضل

Function uptimeToDHMS(ByVal inSeconds As Integer) As String
        uptimeToDHMS = ""
        Dim seconds As Integer
        seconds = inSeconds Mod 60
        inSeconds = (inSeconds - seconds) / 60
        Dim minutes As Integer
        minutes = inSeconds Mod 60
        inSeconds = (inSeconds - minutes) / 60
        Dim hours As Integer
        hours = inSeconds Mod 24
        inSeconds = (inSeconds - hours) / 24
        Dim days As Integer
        days = inSeconds

        uptimeToDHMS = days & " " _
            & hours & ":" _
            & minutes & ":" _
            & seconds
End Function