怎么把星期三当作一个星期的起点算周？

Question

用vbscript的
DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
firstdayofweek可以指定你需要的星期
常数 值 描述 
vbUseSystemDayOfWeek 0 使用区域语言支持 (NLS) API 设置。 
vbSunday 1 星期日（默认） 
vbMonday 2 星期一 
vbTuesday 3 星期二 
vbWednesday 4 星期三 
vbThursday 5 星期四 
vbFriday 6 星期五 
vbSaturday 7 星期六 

Answer 1

<script language="JavaScript">
<!--
var str="2005/5/25";function rtnWeeks(str){
var arr=[4,5,6,0,1,2,3];
var date = new Date(str);
var day = date.getDate();
var week = arr[date.getDay()];
return Math.ceil((day-week-1)/7);
}
alert(str.split("/")[2]+"日是"+str.split("/")[0]+"-"+str.split("/")[1]+"月的第"+rtnWeeks(str)+"周");
//-->
</script>