Hejsan,
jag behöver en funktion som endast räknar vardagar då jag kollar om det gått ett visst antal dagar sedan ett visst datum som ligger i databasen.

Så om det gått 5 dagar sedan 2005-04-01 ska det presenteras. Men om det hade varit en helg över dessa dagar så skulle helgen räknas bort och det bara vara 3 dagar.

Skulle även kunna ha denna funktion för att kolla frammåt i tiden. Om jag tex vill sätta ett datum +10 dagar så ska den räkna ut det datumet exkl helgdagar.

Måste finnas någon som gjort en sådan? Sökte inte i forumet men hittade inget av värde.

Hittade ett inlägg i ett annat forum:

[KOD]
psStartDate = "2002-10-07"
psEndDate = "2002-10-15"
response.Write get_Weekdays(psStartDate, psEndDate)


Function get_Weekdays(start_date, end_date)
Dim days
days = DateDiff("d", start_date, end_date, 2, 2)
Do until Cdate(start_date) = Cdate(end_date)
Select case weekday(start_date, 2)
case 6 days = days-1
case 7 days = days-1
End Select
start_date = dateadd("d", 1, start_date)
Loop
get_Weekdays = days
End Function
[/KOD]

Ska testa det, återkommer sedan om jag har frågor.