Antal dage uden weekend

Hvad med helligdage?

Hvis det kan lade sig gøre skal den også springe dem over

Læg følgende 2 funktioner i et modul:

Public Function Arbejdsdag(Dato As Date) As Boolean
    If Weekday(Dato) = 7 Or Weekday(Dato) = 1 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 bruge FindAntalArbejdsdage(Startdato, Slutdato) til at finde antallet (uden helligdage)

SELECT Count(Tabel1.Dato) AS AntalOfDato, Format([Dato],"ddd") AS Ugedag
FROM Tabel1
GROUP BY Format([Dato],"ddd")
HAVING (((Format([Dato],"ddd")) Not In ("lø","sø")));

Hvis du vil tage hensyn til helligdage, skal du oprette en tabel, med én kolonne, som hedder "Dato". Tabellen kaldes "Helligdage".

Herefter udskifter du funktionen Arbejdsdag med denne:

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

Hvis du vil have totalsum, fjerner du linien GROUP BY

jensen->virker det? Smart :o)

Den er måske ikke lige sådan at få ind i en eksisterende query.

Jensen, hvordan sætter jeg min start og slut dato ind i dit forslag ?

Thomas, skal alle helligdage så indskrives i helligdags tabellen ?

Som Thomas skriver, skal du have en ekstra tabel hvor du angiver helligdagene, og så kan forespørgslen se således ud :

SELECT Count(Tabel1.Dato) AS AntalOfDato
FROM Tabel1 LEFT JOIN Helligdage ON Tabel1.Dato = Helligdage.HDato
WHERE (((Helligdage.HDato) Is Null) AND ((Format([Dato],"ddd")) Not In ("lø","sø")));

Jensen, din forespørgelse, vælger da kun et felt ?

SELECT Count(Tabel1.Dato) AS DatoAntal
FROM Tabel1 LEFT JOIN Helligdage ON Tabel1.Dato = Helligdage.HDato
WHERE (((Tabel1.Dato) Between [StartDato:] And [SlutDato:])
AND ((Helligdage.HDato) Is Null)
AND ((Format([Dato],"ddd")) Not In ("lø","sø")));

Vælger du ikke 3 felter nu ?
dato, startdato,slutdato ?

Det er een og samme tabel/felt som der henvises til. Between [StartDato:] And [SlutDato:]) er to variabler som aktiveres når forespørgslen genereres, dvs. du skal så indtaste dato-intervallet som der skal søges på ;)

Jeg blir bedt om at indtaste:
Dato
StartDato
SlutDato
Dato

Den skal kun ha start og slut indput, og så fortælle antal dage

Hvilke elementer indeholder dine to tabeller ( tabelnavn og feltnavne )

Place Thomas's functions in a module, then alter your query as follows.

SELECT FindAntalArbejdsdage([start],[slut]) AS Antal FROM Dato

Terry, vil helst ha en ren query, uden modul.

jensen, har en tabel dato:
id - auto
start - datoformat
slut - datoformat

helligdage:
id - auto
Hdato - datoformat
navn - text

ups .... jeg har vis misforstået opgaven en anelse ;) ... jeg gik ud fra, at start og slut blev valgt fra en tabel med alle datoer ...

Så er der nok kun et modul-metoden ... sorry ...

Rettede lidt til i modulet, og fik det til at virke perfekt med helligdage.

Mange tak for hjælpen

hindu... OK, but then why reject my answer and not others? and I very much doubt that you can do it in pure SQL! You MUST use some functions to find days which are saturday and sunday!

Jeg kunne kun fordele point lige mellem jer.

http://erfa.teknologisk.dk/erfaaccess/videnbase/Kodeeksempler/datoer/Helligdage.txt

dette er en kode der finder de skæve heligdage

Niels

Hvordan kalder jeg den ?

Du opretter et nyt modul og copy paster det hele ind i modulet.

brug functionen IsHelligdag

select dato, IsHelligdag(dato) as Erhelligdag
from dato

Hej Niels

Forsøgte at følge linket, men desværre... Har du stadig koden, og vil du evt. gøre den tilgængelig eller E-maile den til mig?