udregning af dage

Hvis tabellen skal tage højde for helligdage, så skal du lave en tabel med kun én kolonne, som du kalder Dato (af datatypen Dato). Tabellen kalder du "Helligdage"

Herefter lægger du disse 2 funktioner ind i et modul:
Public Function Arbejdsdag(Dato As Date) As Boolean
    If Weekday(Dato) = 7 Or Weekday(Dato) = 1 Then
        Arbejdsdag = False
    ElseIf DCount("*", "Helligdage", "Dato = #" & Format(Dato, "yyyy-mm-dd") & "#") > 0 Then
        Arbejdsdag = False
    Else
        Arbejdsdag = True
    End If
End Function

Public Function FindAntalArbejdsdage(Startdato As Date, Slutdato As Date) As Long
    Dim tmpDato As Date
    Dim n As Integer
    tmpDato = Startdato
    Do Until tmpDato >= Slutdato
        If Arbejdsdag(tmpDato) Then
            n = n + 1
        End If
        tmpDato = tmpDato + 1
    Loop
    FindAntalArbejdsdage = n
End Function

Herefter kan du finde antal arbejdsdage mellem 2 datoer (f.eks. i en forespørgsel) ved at kalde:
FindAntalArbejdsdage(Dato1, Dato2)

/Thomas

what about holidays?

OK, I see you have a "holiday" table there Thomas :o)

så er jeg tilbage.. hvordan kan den regne ud hvormange dage der imellem to datoer, i en tom tabel? skal jeg ikke importere en røvfuld i de tabeller, eller hvordan?

Du laver bare en forespørgesel baseret på din tabel. I denne laver du en ny kolonne, som ser således ud:
Forskel: FindAntalArbejdsdage([Dato1], Dato2])

det har naturligvis gjort, og her kommer den ud med en tom record...?!

hmm, det virker på min!?

hvad sker der, hvis du trykker Ctrl+G og taster:
?FindAntalArbejdsdage(#1-1-2003#, Date)
(Efterfulgt af ENTER)?

det har du sgu ret i, dog kan jeg ikke få noget ud af en forespørgelse, men det er ikke noget problem at få det korrekt ud gennem immediate-panelet. Men mon ikke det bare er en fejl 40?! :) Tak for hjælpen mester...