Function vrijeme(broj As Single)
Dim VrijemeBroj As Single

VrijemeBroj = broj / 24
MsgBox Format(VrijemeBroj, "H:MM:SS")

vrijeme_a (broj) <=  ovo mi nije jasno, javi gresku 

End Function