它山之石可以攻玉

键盘上的生活
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

ASP计算当月天数

Posted on 2008-10-09 12:54  陈达辉  阅读(1295)  评论(0编辑  收藏  举报
dd = Date() '今天
dd = dateadd("m",1,dd) '月份加1
dd = Cdate(Year(dd) & "-" & Month(dd) & "-1") '下月的第一天
dd=dateadd("d",dd,-1) '本月的最后一天
dd=day(dd) '本月的天数
Response.Write(dd)