Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → decimalni broj u sate:minute:sekunde


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


zxz (15.11.2019 13:25):
Predmet: Re: decimalni broj u sate:minute:sekunde
hehe pa to samo pobrisi ili kopiraj i uonu prije pa je preumenuj u vrijeme_a

Avko (15.11.2019 11:17):
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

zxz (15.11.2019 10:18):
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

Avko (15.11.2019 09:22):
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.

zxz (15.11.2019 00:07):
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

zxz (14.11.2019 23:27):
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.

Avko (14.11.2019 14:52):
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

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 54 pm.