Kako numerički podatak pretvoriti u izveštaju ili na formi u vreme. Da objasnim, ulazni podatak je broj 123, treba mi na izveštaju da to izgleda kao 00h 2min 3s. Pokušavao sam svašta i nisam uspeo. Da li postoji neka procedura ili nešto slično. Molim za pomoć, ko zna , molim da odgovori. Hvala svima!
Numerički podatak u vreme
Zaključano
Zakačeno
123
a sto je s 1 ????
kakav ti je to podatak 123 ???
1 sat
2 minute
3 sekunde
nisi baš pojasnio ????
a sto je s 1 ????
kakav ti je to podatak 123 ???
1 sat
2 minute
3 sekunde
nisi baš pojasnio ????
To je obi�an broj, naveo sam ga kao primer. Taj broj ozna�ava broj sekundi.
Kao naprimer broj 92. To je 92 sekunde I treba ga prevesti u vreme : 1 minut
32 sekunde.
Izvinjavam se ako je pitanje bilo neprecizno formulisano.
Nadam se da je sada jasno.
Pozdrav I hvala!!
Kao naprimer broj 92. To je 92 sekunde I treba ga prevesti u vreme : 1 minut
32 sekunde.
Izvinjavam se ako je pitanje bilo neprecizno formulisano.
Nadam se da je sada jasno.
Pozdrav I hvala!!
U Excel-u broj sekundi (npr. 123) podelis sa 86400 i dobijeni decimalni broj formatiras kao h:mm:ss i dobijes 0:02:03. Mozda ovako ili slicno moze i u Access-u.
Pozdrav!
Pozdrav!
Nisam nasao moj primer koji sam nekad radio ali ti saljem textualni deo pa vidi da li ti to pomaze.
Potpis
pozz
zeljovan
zeljovan
Ne znam da li si resio,ali svejedno-evo ti primer.Pozdrav.
Potpis
Jednog dana...
Mala ispravka.Primer u prilogu.
Potpis
Jednog dana...
Evo i trece srece-ispravljen ispis ako je broj manji od 60.
Potpis
Jednog dana...
REŠEN PROBLEM!!!
Hvala korisniku SLOJ.1973
Ova procedura koju je on uradio, upravo rešava problem koji nisam znao da rešim. Uz minornu modifikaciju, ova procedura radi i na formi i na izveštaju.
Ako još nekom zatreba pretvaranje broja u vreme, evo rešenja:
A = Me.trajanje
If A < 60 Then Me.Text2 = A
If A >= 60 Then
If A >= 3600 Then
H = Int(A / 3600)
M1 = A Mod 3600
If M1 > 60 Then
M = Int(M1 / 60)
S = M1 - M * 60
Else
M = 0
If M1 = 60 Then
M = 1
S = 0
Else
S = M1
End If
End If
Else
H = 0
M = Int(A / 60)
S = A Mod 60
End If
if H = 0 Then Me.Text2 = M & " m" & ":" & S & " s": Exit Sub
Me.Text2 = H & " h" & " " & M & " min" & " " & S & " sec"
End if
Naziv polja TRAJANJE je moje polje, a vi ga zamenita sa nazivom vašeg ulaznog polja.
Još jednom, hvala momku iz Požarevca, i svima koji su se uključili u ovo temu.
POZDRAV!!!
Hvala korisniku SLOJ.1973
Ova procedura koju je on uradio, upravo rešava problem koji nisam znao da rešim. Uz minornu modifikaciju, ova procedura radi i na formi i na izveštaju.
Ako još nekom zatreba pretvaranje broja u vreme, evo rešenja:
A = Me.trajanje
If A < 60 Then Me.Text2 = A
If A >= 60 Then
If A >= 3600 Then
H = Int(A / 3600)
M1 = A Mod 3600
If M1 > 60 Then
M = Int(M1 / 60)
S = M1 - M * 60
Else
M = 0
If M1 = 60 Then
M = 1
S = 0
Else
S = M1
End If
End If
Else
H = 0
M = Int(A / 60)
S = A Mod 60
End If
if H = 0 Then Me.Text2 = M & " m" & ":" & S & " s": Exit Sub
Me.Text2 = H & " h" & " " & M & " min" & " " & S & " sec"
End if
Naziv polja TRAJANJE je moje polje, a vi ga zamenita sa nazivom vašeg ulaznog polja.
Još jednom, hvala momku iz Požarevca, i svima koji su se uključili u ovo temu.
POZDRAV!!!
izmenjeno 1 put, poslednji put SLOJ.1973 08.09.2012. u 11:15
Izmene poruke
- SLOJ.197308.09.2012. u 11:15zapis iz teksta poruke
Za ono "momak" imas pice.Pozdrav i drago mi je da sam pomogao.
Postoji mala greška u kodu,jer ako je broj manji od 60 ne ispisuje tekst u obliku h:mm:ss već samo broj.Zato u mom kodu i stoji
Postoji mala greška u kodu,jer ako je broj manji od 60 ne ispisuje tekst u obliku h:mm:ss već samo broj.Zato u mom kodu i stoji
Code:
If A < 60 Then
S = A
H = 0
M = 0
Me.Text2 = H & "h" & " " & M & "min" & " " & S & "sec"
.
If A < 60 Then
S = A
H = 0
M = 0
Me.Text2 = H & "h" & " " & M & "min" & " " & S & "sec"
Potpis
Jednog dana...