Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Nasumični datumi

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.

Da li ste ikada imali potrebe da upotrebite slučajan datum u opsegu zadatih? To možete iskoristiti u nekim situacijama; pogledajte kako se to radi.

Ukoliko vam zatrebaju slučajni datumi u ograničenom periodu vremena ili slučajan datum u limitima Accessa (počev od 31. decembra 1899.), upotrebite naredne dve funkcije koje ćete preneti u postojeći ili novi modul:

Function SlucDatumURasponu(PocDatum As Date, _
KrajDatum As Date) As Date
SlucDatumURasponu = Int((KrajDatum - _
PocDatum + 1) * Rnd + PocDatum)
End Function

Function SlucDatum() As Date
' umnožava funkciju Rnd * date() + 1 kako
' bi se izbegli datumi u budućnosti
SlucDatum = Int(Rnd() * CDbl(Date + 1))
End Function

Funkcije možete pozvati iz upita i zapisati ih u tabelu ili upotrebiti rezultat za dalju obradu slogova tabele. Ukoliko želite odmah da pogledate rezultat rada, pređite u okno Immediate i pokrenite funkcije:

? SlucDatumURasponu(#1/1/2008#, #12/31/2008#)

ili

? SlucDatum()

U prvom slučaju ćete dobiti slučajan datum iz 2004. godine, a u drugom slučajan datum u granicama najmanjeg i najvećeg mogućeg datuma.