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.

------------------
essentitia preter non sans multiplicandum

Hur :q ;)

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda

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.

------------------
essentitia preter non sans multiplicandum

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

TACK :)

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda

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

------------------
grodan: Ligger nere just nu för att J*VLA trihost som inte har funkat bra, lägger ner! Kommer en ny version snart, vill du vara med? cristoffer@telia.com eller icq# 85371380

Vilken sida snackar du om?

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda

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

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda

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

------------------
essentitia preter non sans multiplicandum

Nu verkar den funka :)

TACK LarsG :e

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda