Function vrijeme(decVrijeme As Single)
Dim cio As Integer, dec As Single, strVrijeme As String

cio = Int(decVrijeme)
START:
dec = (decVrijeme - Int(decVrijeme))
decVrijeme = dec * 60
If strVrijeme = "" Then
strVrijeme = cio & ":" & Int(decVrijeme) & ":"
GoTo START
End If
MsgBox strVrijeme & Int(decVrijeme)
vrijeme = strVrijeme & Int(decVrijeme)
End Function