Prikazi cijelu temu 15.11.2019 09:22
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: decimalni broj u sate:minute:sekunde
Odlicna ti funkcija. Za tebe je to bio mačji kaÅ¡alj, dječja igra, niÅ¡ta lakÅ¡e, kao Å¡etnja u parku.
no ja se juče ubi sa time.
Fino si stavio vrijeme as variant, a od decVrijeme si odbijao pomalo sate, pa minute i ostale na kraju sekunde. "grickala" funkcija decVrijeme kao miš sir. Na kraju si ubacio u vrijeme strVrijeme koji se sastoji od sati i minuta a dodao jos cijeli broj sekundi, stotinke ako su i bile zaboravljene su.
Odlicno.

evo sta sam ja juce izmajmuniso

PreuzmiIzvorni kôd (Text):
  1. Function dec2vrijeme(decVrijeme) As String
  2.    
  3.     Dim sati As Single
  4.     Dim minute As Single
  5.     Dim sekunde As Single
  6.    
  7.    
  8.     sekunde = (decVrijeme / 24) * 86400
  9.     sati = Int(sekunde / 3600)
  10.     sekunde = sekunde - (sati * 3600)
  11.     minute = Int(sekunde / 60)
  12.     sekunde = sekunde - (minute * 60)
  13.    
  14.     If sati < 10 Then dec2vrijeme = "0" & sati & ":" Else dec2vrijeme = sati & ":"
  15.     If minute < 10 Then dec2vrijeme = dec2vrijeme & "0" & minute & ":" Else dec2vrijeme = dec2vrijeme & minute & ":"
  16.     If sekunde < 10 Then dec2vrijeme = dec2vrijeme & "0" & sekunde Else dec2vrijeme = dec2vrijeme & sekunde
  17.    
  18. End Function

ja sam prvo podijelio sa 24 da dobijem excel broj vrijeme, onda sam pomnozio sa 86400 da pretvorim sve u sekunde. Nakon toga sam "grickao sekunde". Da sam stavio funkciju kao variant a ne string , nebi trebao dodavati nule na kraju.
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.11.2019 09:26 od strane Avko.