dag i maaneder...

Her er en function som fortæller dig for mange dage der er i en måned ud fra måned og år

function daysInMonth (nMonth, nYear)
dim myDate
dim counter

myDate=dateserial(nYear, nMonth,1)
counter=0
do while month(myDate)=nMonth
  myDate=myDate+1
  counter=counter+1
loop
daysInMonth = counter
end function