Datediff der samler antal dage uden weekend dagene

Hjernefis: Divider med 2 så har du antal uger. Minus hver uge med 2 og gang med 7?

det er ikke nøjagtigt nok ... hvis jeg nu har en startdato om torsdagen og en slut dato om fredagen så kan du godt se at der kommer til at blive noget rod i det!

Det kan gøres ved at lave sin egen datediff her kalde DateDiffNW og så en hjælpe funktion IsWeekend til at tjekke om en dato er i en weekend.:


<%
function IsWeekend(dato)
  select case Weekday(CDate(dato))
    case vbSaturday, vbSunday
      IsWeekend = True
    case else
      IsWeekend = False
  end select
end function

function DateDiffNW(startDato, slutDato)
  'Sikre start elle slut dato ikke er i en weekend
  do while IsWeekend(startDato)
    startDato = DateAdd("d",1,startDato)
  loop
  do while IsWeekend(slutDato)
    slutDato = DateAdd("d",-1,slutDato)
  loop

  if CDate(startDato) > CDate(slutDato) then
    DateDiffNW = 0
  else
    'med +1 er det: fra og med startDato til og med slutDato
    DateDiffNW = DateDiff("d",startDato,slutDato)-(DateDiff("ww", startDato, slutDato) * 2)+1
  end if
end function


sDato = "16-01-2004"
eDato = "27-01-2004"
Response.Write dateDiffNW(sDato,eDato)

%>

Thx ... det var lige sådan noget jeg skulle bruge. Jeg kan ikke lige give dig nogle point ... af en eller anden grund så har jeg sku mistet alle mine point i opgraderingen. Når jeg går nogle point igen skal jeg nok lige smide 30 af til dig!

tblaster: Som jeg sagde var det også kun en hjernefis som måske kunne hjælpe dig i rigtige retning hvis du nu ikke skulle få anden hjælp!