Dage i en måned?

Kender da den med at tæller på sine knor. Starter fra venstre hånd og så over på den Højre. Der hvor knoren er høj er der 31 og der hvor den er lav 30 dage (28 i feb). Kender ikke andre

her er en funktion der tager højde for skudår/hver hundrede år er der ikke skudår med mindre året kan deles med 400.

<%
function DaysPerMonth(Value) ' Value Type Dato
Dim AYear, AMonth
  AYear = Year(Value)
  AMonth = Month(Value)
  DaysPerMonth = 31
  if (AMonth = 4) or (AMonth = 6) or (AMonth = 9) or (AMonth = 11) then
    DaysPerMonth = 30
  else
    if (AMonth = 2) then ' Februar
      if (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0)) then
        DaysPerMonth = 29 ' Skudår
      else
        DaysPerMonth = 28
      end if
    end if
  end if
end
%>   

PS. Jeg har desværre ikke mulighed for at teste funktionen for syntax-fejl på nuværende tidspunkt.

Jeg er ikke sikker på at det er den korrekte syntax for funktionen mod. ! det kan være der er en anden der lige kan hjælpe med det.

'Først sætter vi en variabel til den første i måneden
dato = "01-02-2000"
tmpdato = dato
dage = 0
Do while Month(dato) = Month(tmpdato)
dage = dage + 1
tmpdato = dateadd("d", 1, tmpdato)
Loop

Response.write("Antal dage i Februar 2000: " & dage)

coltau >> end skal ihvertfald være End Function

Skulle vi ikke korte det ned til:
Response.Write DateSerial(year(date),Month(date)+ 1, 1) - 1
Eller
Response.Write day(DateSerial(year(date),Month(date)+ 1, 1) - 1)