hjælp til omskrivning af script

I får også lige scriptet:

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

response.write FindAntalArbejdsdage("2004-02-14";"2004-06-14")

Måske dette kan hjælpe lidt. Dog trækker den ikke helligdage fra, kun weekender. http://www.eksperten.dk/spm/451026

Functionen Arbejdsdag forudsætter man har en tabel som hedder helligdage hvori alle helligdage er skrevet i. Så hvis du har det kan man lave en select:


Function Arbejdsdag(Dato)
    If Weekday(Dato) = 7 Or Weekday(Dato) = 1 Then
        Arbejdsdag = False
    else
      sql = "select * from helligdage where dato=#" dato & "#"
      set rs=Conn.Execute(SQL)
      if not rs.EOF then
        Arbejdsdag=false
      else
        Arbejdsdag=true
      end if   
    End If
End Function

Så har jeg lavet en tabel med helligdage, og det ser ud til at virke.
Tak for hjælpen.

Hvis du lægger et svar for du dine velfortjente point.

/Mickill

Ok her et svar :)