Centar za edukaciju-BiH


Stranice (1):1

#1 14.11.2019 14:52
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:decimalni broj u sate:minute:sekunde
Mozda netko zna :

PreuzmiIzvorni kôd (Text):
  1. dim decBroj as Double
  2. dim strTime as string
  3.  
  4. decBroj=9,56
  5.  
  6. strTime=dec2time(decBroj)
  7.  
  8. function dec2time(decBroj) as string
  9.      
  10.     sati = Round(decBroj - 0.5)
  11.     min = Int((decBroj - Round(decBroj - 0.5)) * 60)
  12.     sek = ovo neznam
  13.    
  14.     dec2time = sati & ":" & min & ":" & sek
  15.    
  16. end function

trebalo bi ispasti 9:33:36
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 14.11.2019 14:53 od strane Avko. ↑  ↓

#2 14.11.2019 23:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: decimalni broj u sate:minute:sekunde
Dim x As Single
Dim cio As Integer, decdio As Integer
x = 9.56
cio = Int(x)
decdio = (x - Int(x)) * 100

100/56=60/x => x=60*56/100

za secunde isti postupak.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 15.11.2019 00:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 15.11.2019 00:08 od strane zxz. ↑  ↓

#4 15.11.2019 09:22
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


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. ↑  ↓

#5 15.11.2019 10:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: decimalni broj u sate:minute:sekunde
hehe kad si men nahvalio evo ti jos jedna mnogo bolja.
Ta bas i nije potpuno tacna ima malu gresku.
U vb to moze i ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function vrijeme(broj As Single)
  2. Dim VrijemeBroj As Single
  3.  
  4. VrijemeBroj = broj / 24
  5. MsgBox Format(VrijemeBroj, "H:MM:SS")
  6. vrijeme_a (broj)
  7. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 15.11.2019 11:17
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: decimalni broj u sate:minute:sekunde
Citiraj zxz:
hehe kad si men nahvalio evo ti jos jedna mnogo bolja.
Ta bas i nije potpuno tacna ima malu gresku.
U vb to moze i ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function vrijeme(broj As Single)
  2. Dim VrijemeBroj As Single
  3.  
  4. VrijemeBroj = broj / 24
  5. MsgBox Format(VrijemeBroj, "H:MM:SS")
  6.  
  7. vrijeme_a (broj) <=  ovo mi nije jasno, javi gresku
  8.  
  9. End Function

zivot je moja domovina.
Ovaj post je ureden 4 puta. Posljednja izmjena 15.11.2019 11:19 od strane Avko. ↑  ↓

#7 15.11.2019 13:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: decimalni broj u sate:minute:sekunde
hehe pa to samo pobrisi ili kopiraj i uonu prije pa je preumenuj u vrijeme_a
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 37 pm.