månedens sidste dag

Dim lDayInMonth
Dim lSelectedMonth

For lDayInMonth = 28 to 31 'Der minimun 28 dage og max 31
  If Month(DateSerial(Year(Now()),lSelectedMonth,lDayInMonth)) <> lSelectedmonth Then Exit For
Next

Denne kode gemmer antallet af dage i måneden lSelectedMonth i variablen lDayInMonth

mvh/Kenneth

Hej kennethrisum
Virker perfekt. Der skal bare trækkes en fra.