Prikazi cijelu temu 15.11.2019 01:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: decimalni broj u sate:minute:sekunde
PreuzmiIzvorni kôd (Visual Basic):
  1. Function vrijeme(decVrijeme As Single)
  2. Dim cio As Integer, dec As Single, strVrijeme As String
  3.  
  4. cio = Int(decVrijeme)
  5. START:
  6. dec = (decVrijeme - Int(decVrijeme))
  7. decVrijeme = dec * 60
  8. If strVrijeme = "" Then
  9. strVrijeme = cio & ":" & Int(decVrijeme) & ":"
  10. GoTo START
  11. End If
  12. MsgBox strVrijeme & Int(decVrijeme)
  13. vrijeme = strVrijeme & Int(decVrijeme)
  14. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.11.2019 01:08 od strane zxz.