Antal dage i måneden.

det her er vb script:

<%
Response.Write "Dage i denne måned: " & dageimaaned()

function dageimaaned()
  dim maaned1
  dim maaned2

  maaned1 = month(now)

  if maaned1 = 12 then
    maaned2 = 1
  else
    maaned2 = maaned1 + 1
  end if

  dageimaaned = datediff("d",  maaned1 & "/1/" & year(now), maaned2 & "/1/" & year(now))
end function
%>

tager den hensyn til februar og skudår?

ja selvfølgelig gør den det.. skulle lige gennemskue koden.. tak :o)

hmm.. måske er det mig der gør noget galt, jeg får dageimaaned til at være 100000

nil.dk

jeg får det her .:
Dage i denne måned: 1

Det den gør er at tage denne måned (9) og sætte sammen med 1 og med året (2002) = 912002. Så tager den næste måned (10) og sætter sammen med 1 og med 2002 = 1012002. Så tager den forskellen osm er 100000

Øv, jeg skulle vist ikke have accepteret så hurtigt.

Bare sådan for en god ordens skyld ville jeg lige poste en korrekt løsning, som en kollega lavede for mig. Den er testet med skudår.

md_nu = Month(Now)
yy_nu = Year(Now)
dato_d_1 = DateSerial(yy_nu, md_nu, 1)
dato_n_m = DateAdd("m", 1, dato_d_1)
DaysInMonth = DateDiff("d", dato_d_1, dato_n_m)