- 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