<%Function GetDaysInMonth(iMonth, iYear)
Select Case iMonth
Case 1, 3, 5, 7, 8, 10, 12
GetDaysInMonth = 31
Case 4, 6, 9, 11
GetDaysInMonth = 30
Case 2
If IsDate(iYear & "-02-29") Then
GetDaysInMonth = 29
Else
GetDaysInMonth = 28
End If
End Select
End Function%>
typ
i år har februari <%=GetDaysInMonth(Month(Now()), Year(Now()))%>