asp 日期操作
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Buffer=True Session.CodePage=65001 Server.ScriptTimeOut = 90 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta content="text/html; charset=utf-8" http-equiv="Content-Type" /> <title>asp 日期操作 涂聚文</title> <% dim tonow,setnow,cd,disday tonow=Now() %> </head> <body> <% setnow=dateadd("m",-1,year(tonow)&"-"&month(tonow)&"-1") %> 上个月第一天:<%=setnow%><br/> <% setnow=dateadd("d",-1,year(tonow)&"-"&month(tonow)&"-1") %> 上个月最后一天:<%=setnow%><br/> <% setnow=year(tonow)&"-"&month(tonow)&"-1" %> 本月第一天:<%=setnow%><br/> <% setnow=dateadd("d",-1,dateadd("m",1,year(tonow)&"-"&month(tonow)&"-1")) %> 本月最后一天:<%=setnow%><br/> <% setnow=dateadd("m",1,year(tonow)&"-"&month(tonow)&"-01") %> 下个月第一天:<%=setnow%><br/> <% setnow=dateadd("d",-1,dateadd("m",2,year(tonow)&"-"&month(tonow)&"-01")) %> 下个月最后一天:<%=setnow%><br/> <% setnow=dateadd("m",-2,year(tonow)&"-"&month(tonow)&"-01") %> 下二个月第一天:<%=setnow%><br/> <% setnow=dateadd("d",-1,dateadd("m",3,year(tonow)&"-"&month(tonow)&"-01")) %> 下二个月最后一天:<%=setnow%><br/> <% setnow="2013-10-11" cd=DATEDIFF("d",tonow,setnow) %> 两个日期差(天):<%=cd%> <br/> <% disday=dateadd("d",-1,dateadd("m",3,year(setnow)&"-"&month(setnow)&"-01")) %> <%=setnow%>下二个月最后一天:<%=disday%><br/> </body> </html>
哲学管理(学)人生, 文学艺术生活, 自动(计算机学)物理(学)工作, 生物(学)化学逆境, 历史(学)测绘(学)时间, 经济(学)数学金钱(理财), 心理(学)医学情绪, 诗词美容情感, 美学建筑(学)家园, 解构建构(分析)整合学习, 智商情商(IQ、EQ)运筹(学)生存.---Geovin Du(涂聚文)