sidste 14 dage i et kvartal.

Hvis jeg fx har en dato (23-12-2002)  så skal den kunne se om denne dato ligger i de sidste 14 dage.

Sådan her kunne du gøre:

'Find første dato i næste kvartal efter det vi er i
kvartal = DatePart("q",Date)
sdato = DateSerial(Year(Date),1,1)
sdato = DateAdd("q",kvartal,sDato)

'Træk 14 date fra
tjekDato = DateAdd("d",-14,sDato)


testDato = "23-12-2002"

if Cdate(testDato) >= CDate(tjekDato) then
  Response.Write "test dato inden for de sidste 14 date"
else
  Response.Write "Uden for.."
end if

takker :)