Räkna bara vardagar

Det är inte så enkelt, om du vill ta hänsyn till rörliga helgdagar och sådant.

Gäller det bara att ta bort lördag och söndag är det väl inte så knepigt.

Hur

function weekdays(d1,d2)
days = datediff("D",d1,d2)
weeks = datediff("w",d1,d2)
if weekday(d1,vbMonday) < weekday(d2,vbMonday) then
   days = days - 2*weeks
else
   days = days - 2*(weeks-1)
end if
weekdays = days
end function

För att ta bort lördag/söndag så kan du ju utgå från det. Den fungerar förmodligen inte om något av datumet är en lördag eller en söndag. Orkar inte testa mer.

För att ta hänsyn till andra helgdagar så får man nog lägga upp en tabell för dem och räkna efter hur många som faller inom det aktuella intervallet.

Skall testa detta under morgondagen
Behöver bara tabort Lör/Sön.

TACK

vad har hänt med din sida Rossifumi, för det är la inte du som gjort den man kan komma till nu? *snyft*

Vilken sida snackar du om?

LarsG >>

Det funkar nästan.
Ifall jag skriver som följer så får jag svaret 8:a.

<%
Function weekdays(d1,d2)
	days = datediff("D",d1,d2)
	weeks = datediff("w",d1,d2)

		if weekday(d1,vbMonday) < weekday(d2,vbMonday) then
			days = days - 2*weeks
		else
			days = days - 2*(weeks-1)
		end if
weekdays = days
End Function

temp = weekdays("2001-08-03","2001-08-09")
Response.Write temp
%>

Vet du vad som är fel?

MVH

Ja.

Function weekdays(d1,d2)
days = datediff("D",d1,d2)

if days <= 7 then
   days = days - 2
else
weeks = datediff("w",d1,d2)
if weekday(d1,vbMonday) < weekday(d2,vbMonday)  then
days = days - 2*weeks
else
days = days - 2*(weeks-1)
end if
end if
weekdays = days
End Function

Nu verkar den funka

TACK LarsG