日期:2014-05-16 浏览次数:20912 次
<% Dim str1,str2,n,d str1="2013-2" str2="2014-5" n=DateDiff("m",str1&"-1",str2&"-1") '计算两日期差多少个月 For i=0 To n d = DateAdd("m",i,str1&"-1") Response.write Mid(d,1,Len(d)-2)&"<br/>" Next %>