x=DateSerial(Year(DateAdd("m", 1, a1)),Month(DateAdd("m", 1, a1)), 0)と月末の日を求めたものなのですが、dateserialじゃだめなんですか???