BiH



#1 14.11.2019-14:52
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,552


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

DownloadIzvorni kod (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
Život je moja domovina.
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 14.11.2019-14:53 od strane Avko. ↑  ↓

#2 14.11.2019-23:27
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,003


Subject: 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.
Pozdrav
↑  ↓

#3 15.11.2019-00:07
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,003


Subject: Re: decimalni broj u sate:minute:sekunde
DownloadIzvorni kod (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

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 15.11.2019-00:08 od strane zxz. ↑  ↓

#4 15.11.2019-09:22
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,552


Subject: 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

DownloadIzvorni kod (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.
Život je moja domovina.
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 15.11.2019-09:26 od strane Avko. ↑  ↓

#5 15.11.2019-10:18
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,003


Subject: 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:
DownloadIzvorni kod (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

Pozdrav
↑  ↓

#6 15.11.2019-11:17
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 3,552


Subject: Re: decimalni broj u sate:minute:sekunde
Citat od 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:
DownloadIzvorni kod (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

Život je moja domovina.
Ovaj komentar je mijenjan 4 puta. zadnja izmjena 15.11.2019-11:19 od strane Avko. ↑  ↓

#7 15.11.2019-13:25
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 10,003


Subject: Re: decimalni broj u sate:minute:sekunde
hehe pa to samo pobrisi ili kopiraj i uonu prije pa je preumenuj u vrijeme_a
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 08.12.2019-11:45.