VBScript DateSerial 函数（返回本月第一天，最后一天）

VBScript DateSerial 函数：

DateSerial 函数可返回指定的年、月、日的子类型 Date 的 Variant 。

也就是说，DateSerial 函数可以把年、月、日合并为日期。

当前月第一天：

DateSerial(Year(Now), Month(Now) , 1)

当前月最后一天：

DateSerial(Year(Now), Month(Now)+1 , 1-1)

语法
DateSerial(year,month,day)
year 介于100到9999的数字，或数值表达式。介于 0 到 99 的值被视为 1900–1999。对于所有其他的 year 参数，请使用完整的4位年份。
month 任何数值表达式。若大于12，则日期从12月起向后推算mouth-12个月，若小于1，则日期从1月起向前推算1-month个月。
day 任何数值表达式。若大于当月的日数，则日期从当月日数起，向后推算day-当月日数；若小于1，则日期从1日起向前推算1-day日。


实例


1：
document.write(DateSerial(1996,2,3)) '普通的调用方法
输出：
1996/2/3
2：
document.write(DateSerial(95,13,10)) '13月=1年+1月
输出：
1996/01/10
3：
document.write(DateSerial(96,-1,10)) '-1月要从1月起向前推算1-（-1）=2个月
输出：
1995/11/10
4：
document.write(DateSerial(95,2,30)) '95年2月有28日，所以30日=1月+2日
输出：
1995/03/02
5：
document.write(DateSerial(95,2,-2)) '-2日要从1日起向前推算1-（-2）=3日
输出：
1995/01/29
6：
document.write(DateSerial(1990-20,9-2,1-1))
'1990-20=1970年，9-2=7月，1-1=0日，0日要从1日起向前推算1-0=1日。
输出：
1970/6/30