Function dec2vrijeme(decVrijeme) As String
    
    Dim sati As Single
    Dim minute As Single
    Dim sekunde As Single
    
    
    sekunde = (decVrijeme / 24) * 86400
    sati = Int(sekunde / 3600)
    sekunde = sekunde - (sati * 3600)
    minute = Int(sekunde / 60)
    sekunde = sekunde - (minute * 60)
    
    If sati < 10 Then dec2vrijeme = "0" & sati & ":" Else dec2vrijeme = sati & ":"
    If minute < 10 Then dec2vrijeme = dec2vrijeme & "0" & minute & ":" Else dec2vrijeme = dec2vrijeme & minute & ":"
    If sekunde < 10 Then dec2vrijeme = dec2vrijeme & "0" & sekunde Else dec2vrijeme = dec2vrijeme & sekunde
    
End Function