Helger

Hur gör jag om jag vill ha fram hur många arbetsdagar det är mellan 2002-10-01-2002-10-24, alltså antal dagar minus de helgdagar som är.
Just nu har jag days = DateDiff("d", psStartDate, psEndDate)
och jag vill ha
days = DateDiff("d", psStartDate, psEndDate) - helgdagar.

Hur gör jag?

days = (DateDiff("d", psStartDate, psEndDate)/7)*5

På så vis räknar du ut hur många vardagar det är. Dock så räknar den ju inte bort söndagar som ligger mitt i veckan osv.

man kan även göra så här :)

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