objDate=Date
이번달의 마지막 날짜=DateDiff("d",objDate,DateAdd("m",1,objDate))

objDate=Date
objDate=DateAdd("m",1,objDate)
다음달의 마지막 날짜=DateDiff("d",objDate,DateAdd("m",1,objDate))