Prikazi cijelu temu
24.09.2013 14:38
24.09.2013 14:38
Predmet:Re: Format datuma
Pozdrav svima, jedno vrijeme me nije bilo iz objektivnih razloga.
Gornju funkciju sam koristio jedno vrijeme i nije bilo problema dok mi se nije pojavio datum
"15.06.2013 10:59:45" i fukcija je to izračunala kao "15.06.2013 10:60:00", a 10:60:00 je zapravo 11:00:00 i tu se javljala greÅ¡ka.
Ja sa sada to preradio da mi se korigiraju i minute i sati, ali joÅ¡ mi ostaje problem ako se slučajno pojavi 23:59:30 ili viÅ¡e. To bi tada trebalo biti 24:00:00 ali access to ne prihvaća. Znam da je takva mogućnost rijetka ali aplikacija treba raditi korektno i uzeti u obzir sve varijante.
Molim pomoć
Pozdrav svima, jedno vrijeme me nije bilo iz objektivnih razloga.
Gornju funkciju sam koristio jedno vrijeme i nije bilo problema dok mi se nije pojavio datum
"15.06.2013 10:59:45" i fukcija je to izračunala kao "15.06.2013 10:60:00", a 10:60:00 je zapravo 11:00:00 i tu se javljala greÅ¡ka.
Ja sa sada to preradio da mi se korigiraju i minute i sati, ali joÅ¡ mi ostaje problem ako se slučajno pojavi 23:59:30 ili viÅ¡e. To bi tada trebalo biti 24:00:00 ali access to ne prihvaća. Znam da je takva mogućnost rijetka ali aplikacija treba raditi korektno i uzeti u obzir sve varijante.
Molim pomoć
PreuzmiIzvorni kôd (vbnet):
- Function Vrijeme(Datum As Date) As Date
- Dim VS As String
- Dim D As String
- Dim M As String
- Dim Y As String
- Dim H As String
- Dim MIN As String
- Dim MIN1 As String
- Dim S As String
- Dim korekcijaS As Double
- Dim korekcijaM As Double
- Dim korekcijaM1 As Double
- D = Day(Datum)
- M = Month(Datum)
- Y = Year(Datum)
- S = Second(Datum)
- korekcijaS = IIf(S > 30, 1, 0)
- MIN = Minute(Datum) + korekcijaS
- korekcijaM = IIf(MIN < 60, 1, 0)
- korekcijaM1 = IIf(MIN = 60, 1, 0)
- MIN1 = MIN * korekcijaM
- H = Hour(Datum) + korekcijaM1
- VS = D & "." & M & "." & Y & " " & H & ":" & MIN1
- Vrijeme = VS
- End Function
Pozdrav