optimering af funktion

kommer lige her for god ordens skyld:

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

Afhængig af gnst. afstand mellem datoerne: Hvis den er høj, kan du jo udnytte, at hver 7. dag er lørdag og/eller søndag. Så er det ikke nødvendigt at spørge på alle datoer. Hvis der typisk er giga-mange datoer, kan du tælle hvor mange dage der er ialt, og derfra fratrække antallet af lørdage og søndage, samt antallet af helligdage...Koden må du selv fedte med, synes jeg.

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

det man bruger funktionen til, er at søge efter hvormange arbejdsdage der er mellem d. 15 i denne, og d. 14 i næst-kommende måned. så det er jo ikke et gigastort tal... :)

ferdinand.k> You said that you are not using  "Helligedage" table! I have removed it from the loop but as far as I see it you MUST go through each day to see if it is a working day or a weekend (saturday or sunday). I would also have thought that holidays (Easter etc.) would need to be taken into concideration too!

det er ikke nødvendigt med helligdage... jeg skal sådan set kun have antallet af hverdage ud mellem to datoer, oftest med en måneds mellemrum...

Hej Ferdinand K.
Se Terrys svar her
http://www.eksperten.dk/spm/296043

Hi Pecl>Gald you can find what I made, I never seem to be able to :o)
Even so there isnt a great difference in either method.

Hvis du ikke synes, at ANTAL.ARBEJDSDAGE er god nok, og hvis ALDRIG medregner helligdage og du ALTID skal beregne fra 15 dennes til 14 næstes, vil jeg påstå at du må kunne udnytte at hver 7.dag er lørdag eller søndag...Der vil altid være 28-31 dage ialt, herunder 4-5 lørdage/søndage - take that, hvis du altså er ude på ekstrem sub-optimering!

En grim, nogle vil sige kinky, variant af 'Arbejdsdag' er iøvrigt:
Public Function Arbejdsdag(Dato As Date) As Boolean
Arbejsdag = Weekday(Dato) <> 7 And Weekday(Dato) <> 1
End Function

Jeg kan ikke lige gennemskue, om du kunne optimere mere ved at lave en
..
Dim a as integer
a=Weekday(dato)
Arbejsdag = a <> 7 And a <> 1
..
herved sparer du jo et kald af Weekday...men det må du næsten selv teste.