Undgå lørdag og søndag (dato)

Jeg vil anbefale at du bruger DateAdd() funktion istedet for bare en alm. addition på dato. Går ud fra dit "dato" felt reelt er et dato felt i databasen.

Hej Pfp!

Jep det er det..

Kan du give et eksempel på DateAdd?

minDag=Record("dato")
fakturadato=DateAdd("d",14,minDag)
wd=Weekday(fakturadato,2)
if wd > 5 then fakturadato=DateAdd("d",8-wd,fakturadato)
'fakturadato indholder datoen + 14 hvor der er taget høje for det ikke må være en weekend

Jeg har skrevet en lille funktion som skulle kunne hjælpe dig:
<%
Session.LCID = 1030
Function payDate(dateIn, intInterval)
    tempDate = DateAdd("d", intInterval, dateIn)
    If Weekday(tempDate) = 7 then
        ' hvis vi rammer lørdag lægges 2 dage til
        payDate = DateAdd("d", intInterval+2, dateIn)
    Elseif Weekday(tempDate) = 1 then
        ' hvis vi rammer søndag lægges 1 dag til
        payDate = DateAdd("d", intInterval+1, dateIn)
    Else
        ' eller tager vi bare præcis 14 dage
        payDate = DateAdd("d", intInterval, dateIn)
    End if
End Function

Response.Write payDate("14-01-2005", 14)
%>

Den tager din fakturadato og antal dage som parametre

Tak for hjælpen i to :)

Pfp du må gerne ligge et svar, så tager vi en deler :)

God aften..

Svar