<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
sub proba()
   dim varTemp as double

   varTemp=102345
   msgbox sec2time(varTemp)

next sub

function sec2time(s as Double) as String
    Dim sati As Integer
    Dim minuta As Integer
    Dim sekundi As Integer
    
    If s >= 86400 Then
        sati = (s / 86400) * 24
        s = s Mod 86400
    End If
    
    If s >= 3600 Then
        sati = sati + (s / 3600)
        s = s Mod 3600
    End If
    
    If s >= 60 Then
        minuta = s