Antal dage mellem 2 datoer

Du skal bruge funktionen datediff

Brug antaldage = datediff(d, dato1, dato2)
D giver antallet af dage
hvis du skal bruge arbejdsdage bliver det straks mere avanceret. Helldigdage ka jeg ik se nogen anden mulighed end at skrive dem alle manuelt (evt. ind i en database) og derefter checke hver eneste dag i rangen og lave antaldage = antaldage -1 for hver helligdag der kommer imellem

Er der nogen som har et bud på hvordan jeg trækker lørdag-søndag fra ????

Du burde kunne bruge denne funktion

tempDays = datediff(d, dato1, dato2)

For i = 1 to tempDays
NewDate = DateAdd(\"d\", i, dato1)
MyWeekDay = Weekday(NewDate)

If MyWeekDay < 6 then
  MyDays = MyDays + 1
end if
Next

Har ikke testet den, men den bør da i hvert tilfælde give dig en ide om løsningen.

Hmmm, denne funktion lægger et antal arbejdsdage til en given dato (...og den er testet ;-). Burde måske kunne give dig lidt inspiration.

Function WorkdayAdd(ByVal dtmDate, intNumber)
    If intNumber > 0 Then
        For i = 1 To intNumber
            dtmDate = DateAdd(\"d\", 1, dtmDate)
            If (DatePart(\"w\", dtmDate) = 7) Or (DatePart(\"w\", dtmDate) = 1) Then i = i -1
        Next
    Else
        For i = -1 To intNumber Step -1
            dtmDate = DateAdd(\"d\", -1, dtmDate)
            If (DatePart(\"w\", dtmDate) = 7) Or (DatePart(\"w\", dtmDate) = 1) Then i = i +1
        Next
    End If
    WorkdayAdd = dtmDate
End Function

....prøv denne funktion:

Function WorkdayDiff(dtmStart, dtmEnd)
    WorkdayDiff = 0
    For i = 1 To DateDiff(\"d\", dtmStart, dtmEnd)
        If DatePart(\"w\", dtmStart + i) <> 7 And DatePart(\"w\", dtmStart + i) <> 1 Then WorkdayDiff = WorkdayDiff +1
    Next
End Function

Du skal nok teste den grundigt, især omkring årskiftet, da DatePart og DateDiff er rimeligt afhængige af datoindstillingerne på din server.

/SoerenS

Tak for de gode svar

Der skal nok snart falde nogle point.....

Men først kan I så ikke lige svare mig på følgende:

følgende sql sætning laver ballade.

Datostreng = \"select * from helligdage WHERE (Helligdag >= \"&Datoen1&\" and Helligdag1 <= \"&Datoen2&\")\"
Set res = Server.CreateObject(\"ADODB.RecordSet\")
res.Open Datostreng, Conn, 1, 3

Datoen1 og Datoen2 er begge talværdier hentet fra en formular. eks. 20010101

helligdag er også talværdier.

Hvis jeg sætter 2 datoer ind i koden virker det.

Jeg får følgende fejl:

Microsoft VBScript runtime error \'800a0009\'

Subscript out of range: \'[number: 2]\'

UUUUUndskyld problemet er løst.

Hov, kom lige til at se at min Function laver unødvendigt mange kald til DatePart....

Nedenstående er optimeret lidt, laver halvt så mange kald (er dog ikke testet):

Function WorkdayDiff(dtmStart, dtmEnd)
    WorkdayDiff = 0
    For i = 1 To DateDiff(\"d\", dtmStart, dtmEnd)
    intDoW = DatePart(\"w\", dtmStart + i)
        If intDoW <> 7 And intDoW <> 1 Then WorkdayDiff = WorkdayDiff +1
    Next
End Function

Da ingen gav et komplet løsningssvar på mit spørgsmål trækker jeg 100 point fra.

TMCEU: 100 point for et næsten rigtigt svar, vedr. uge minus lør-søn, ugen i dit svar går fra søndag til  og med torsdag.

SOERENS: 50 point for svaret dog hverken testet eller brugt.

Håber at I kan leve med pointfordelingen.