List et pågældende måned udfra en variable

    Function GetLastDay(intMonthNum, intYearNum)
        dTemp  = DateSerial(iYear, iMonth+1, 1)
        dTemp  = dateAdd(\"d\",-1,dTemp)
        GetLastDay = Day(dTemp)
    End Function


    dFirstDay = DateSerial(iYear, iMonth, 1)
        iLastDay = GetLastDay(iMonth, iYear)

dFirstDay er første dag i måenden
og iLastDay angiver sidste dag. Bemærk at det ene er en date, mens det andet er et tal.

iYear, iMonth og er selvfølge dit år og måned