dim decBroj as Double
dim strTime as string

decBroj=9,56

strTime=dec2time(decBroj)

function dec2time(decBroj) as string
      
    sati = Round(decBroj - 0.5)
    min = Int((decBroj - Round(decBroj - 0.5)) * 60)
    sek = ovo neznam
    
    dec2time = sati & ":" & min & ":" & sek
    
end function