每月的最後一天

下個月的第一天減一天
 

dim lastday as String  
  
lastday = Format(Dateadd("d",-1,CDate(Format(Dateadd("m",1,Now),"yyyy/MM/01"))),"yyyy/MM/dd")