Access – Broj radnih dana

Ako se bavite razvojem aplikacija u MS Access-u sigurno ste se već sreli sa nekom od funkcija za rad sa datumima. U ovom prilogu predstavićemo vam funkciju koja izračunava broj radnih dana između dva datuma. Ovo može biti jako korisno u firmama prilikom obračunavanja plata. Funkciji predajemo dva podatka (tipa Variant) koja predstavljaju početni i krajnji datum. Rezultat koji vraća funkcija je celobrojna vrednost koja predstavlja ukupan broj radnih dana između dva datuma. Evo i same funkcije:

Function Radni_Dani(PocetniDatum As Variant,

KrajnjiDatum As Variant) As Integer

‘ Napomena: Funkcija nece racunati dane praznika.

Dim BrojNedelja As Variant

Dim DatumPriv As Variant

Dim PoslednjiDani As Integer

 PocetniDatum = DateValue(PocetniDatum)

 KrajnjiDatum = DateValue(KrajnjiDatum)

BrojNedelja = DateDiff(„w“, PocetniDatum, KrajnjiDatum)

DatumPriv = DateAdd(„ww“, BrojNedelja, PocetniDatum)

PoslednjiDani = 0

Do While DatumPriv < KrajnjiDatum

If Format(DatumPriv, "ddd") „Sun“ And _

Format(DatumPriv, „ddd“) „Sat“ Then

PoslednjiDani = PoslednjiDani + 1

End If

DatumPriv = DateAdd(„d“, 1, DatumPriv)

Loop

Radni_Dani = BrojNedelja * 5 + PoslednjiDani

End Function

U samom programskom kodu možemo videti nekoliko ugrađenih funkcija, pa ćemo ih bliže pojasniti:

• DateValue – pretvara datum koji je u tekst formi, u serijski broj
• DateDiff- računa broj kalendarskih sedmica između dva datuma
• DateAdd – na postojeći datum dodaje određeni broj dana, rezultat je dobijeni, novi datum.

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.