asp中获取日期的一个问题

来源：百度知道 编辑：UC知道 时间：2024/07/07 08:51:04
请教一下大侠，用什么语句在asp中可以自动获取当前月份的第一天和最后一天。如果当月有31号，最后一天则是31，如果是2月份，则最后一天是28，这样的功能该如何实现。
date()-day(date()-1)
这个好像是当月的第一天。
一楼的大侠，可以帮我写出这个函数不？就想上面的这个一样。

法一：先找出下个月，再减一天，就可以得到本月的最后一天了。
然后读取day() 就行了。

法二：其实只要读取month(date())然后自己判断就行了，因为1,3,5,7,8,10,12月都是31天的；4,6,9,11都是30天的，2月是28或29的。只有这么几种情况，直接判断就行了。

法一的：
m=month(now()) '当前月
y=year(now()) '当前年
if m=12 then m=1:y=y+1 else m=m+1 '找下个月
nextDate=y & "-" & m & "-" & "1" '下个月第一天
msgbox "本月最后一天是：" & day(nextDate-1)

<%

yy=year(now)
mm=month(now)

dim m(12)
m(1)=31
m(3)=31
m(5)=31
m(7)=31
m(8)=31
m(10)=31
m(12)=31
m(2)=28
m(4)=30
m(6)=30
m(9)=30
m(11)=30
if (yy mod 4=0 and yy mod 100<>0) or yy mod 400=0 then m(2)=29 '判断是否闰年
mms=m(mm)

response.write mms '输出当月天数
%>

第一天就不用说了， 都是1号。 然后判断一下是几月份，就知道最后一天是几号了。