Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Datum i vreme

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Access ima brojne funkcije za rad sa vremenom i datumom. Potrebno je da se upoznate sa nekoliko jednostavnih, ali važnih elemenata ponašanja ovih vrednosti kako biste izbegli grube greške u proračunu u svojim aplikacijama.

Najpre, valja da proverite standarde. Način prikazivanja datuma u Accessu zavisi od sistemskog podešavanja. Ako želite npr. da se skraćeni datum (Short Date) prikazuje u obliku po dve cifre za datum, mesec i godinu, u Control Panelu pod ikonom Regional Settings, kartica Date, upišite u polje Short Data Style masku dd.mm.yy. Ukoliko se ukaže potreba da nešto uradimo sa vremenom i datumom, a takva funkcija ne postoji, moramo razumeti način na koji Access interno čuva ove vrednosti.

Datumi se čuvaju kao ceo broj u tzv. Julian, odnosno Serial obliku i naizmenično se prevode iz formata broja u oblik datuma na kakav smo navikli. Broj 0 (nula) označava datum 30.12.1899. i svaki pozitivan broj dodat ovom označava kasniji datum, a svaki njemu dodat negativan broj označava raniji datum. Imajmo u vidu reviziju kalendara iz 16. veka kada je kalendar promenjen i izgubljeno je 13 dana, što Access ne uzima u obzir pri konverziji. Jedini negativni efekti ove "greške" su da je moguće uneti nepostojeći datum, pa datumi sabrani u ovom periodu neće vratiti ispravan rezultat. Dakle, datume možemo sabrati na sledeći način:

#01/01/2000# + 1

Dobijamo rezultat 2. januar 2000. godine, odnosno oduzimanjem broja 1 od ovog datuma dobijamo rezultat 31. decembar 1999. godine.

Vreme se takođe pamti numerički. Jedan sat se pamti kao razlomak 1/24, odnosno jedan sat je predstavljan decimalnim brojem 0,4166...; minut je predstavljen kao razlomak 1/1440, odnosno sekunda kao 1/86400. Vreme sabiramo na sledeći način:

#15:00# + #01:00#

čime dobijamo rezultat 16:00. Kada zbir pređe 24 časa, Access uvećava datum za jedan a vrednost za minute i sekunde resetuje na nulu. Ako želimo da saberemo dva vremena čiji zbir prelazi 24 časa, ali rezultat želimo da vidimo numerički, zahtevaćemo numerički prikaz zbira:

Print format(#15:00# + #10:01#,"#.00") & " dana"

vraća rezultat 1,04 dana. Zahtevajmo prikaz u minutima:

Print format((#15:00# + #10:01#)*1440,"#") & " minuta"

i dobijamo rezultat: 1501 minuta. Broj decimala je poslednji parametar u gornjim naredbama, te možemo zahtevati prikaz u onoliko decimala koliko želimo.

Jasniji prikaz zbira časova u nama čitljivijem obliku dobijamo sledećom funkcijom:

Function DanaSatiMinuta (Interval)

  Dim Dana As Long, Razlika As Double

  Dana = CLng(Interval)
  Razlika = Interval - Dana
  DanaSatiMinuta = Dana & IIf(Days = 1, " dan ", " dana ") & _
     Format(Razlika, "h:mm") & " časova"

End Function

Pogledajmo sada zbir:

Print DanaSatiMinuta(#15:00# + #10:01#)

Dobijamo rezultat 1 dan 01:01 časova.

Kombinacijom načina prikazivanja (format) i imajući u vidu način računanja i čuvanja datuma i vremena u Accessu, možemo kreirati dodatne funkcije, odnosno možemo prikazati datum i vreme u odgovarajućem obliku.