[ zakalex @ 01.09.2012. 11:00 ] @
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!
[ Trtko @ 02.09.2012. 20:08 ] @
123

a sto je s 1 ????

kakav ti je to podatak 123 ???
1 sat
2 minute
3 sekunde


nisi baš pojasnio ????

[ zakalex @ 02.09.2012. 21:44 ] @
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!!
[ todra @ 02.09.2012. 22:21 ] @
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!
[ zeljovan @ 03.09.2012. 12:58 ] @
Nisam nasao moj primer koji sam nekad radio ali ti saljem textualni deo pa vidi da li ti to pomaze.
[ SLOJ.1973 @ 05.09.2012. 08:10 ] @
Ne znam da li si resio,ali svejedno-evo ti primer.Pozdrav.
[ SLOJ.1973 @ 05.09.2012. 08:27 ] @
Mala ispravka.Primer u prilogu.
[ SLOJ.1973 @ 05.09.2012. 08:36 ] @
Evo i trece srece-ispravljen ispis ako je broj manji od 60.
[ zakalex @ 08.09.2012. 08:54 ] @
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!!!
[ SLOJ.1973 @ 08.09.2012. 10:00 ] @
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
Code:
If A < 60 Then
S = A
H = 0
M = 0
Me.Text2 = H & "h" & " " & M & "min" & " " & S & "sec"
.

[Ovu poruku je menjao SLOJ.1973 dana 08.09.2012. u 11:15 GMT+1]