几种日期的表示方法： 

本月最后一天 DateSerial(Year(Date()),Month(Date())+1,1)-1 

本月第一天 Date()-Day(Date())+1 

上月最后一天 DateSerial(Year(Date()),Month(Date()),1)-1 

上月第一天 DateSerial(Year(Date()),Month(Date())-1,1)