小女子初学asp,请问各位大侠一个特别奇怪的DatePart问题

[xiuxiumj]

我自己做了个把DatePart获得的星期数转换为中文的函数
函数代码是
function WtoC(nWeek) '将星期转换为中文
dim aryWeekCh
aryWeekCh=Split("日;一;二;三;四;五;六",";")
WtoC=aryWeekCh(nWeek) '运行的时候IE显示这句有错误
end function
调用方法是
WtoC(DatePart("w",datTime))
可是每次都是数组越界错误，当我把函数里面的WtoC=aryWeekCh(nWeek)改成
select case nWeek
case 1:
WtoC=aryWeekCh(1)
case 2:
WtoC=aryWeekCh(2)
.....
end select
的时候却一切正常，郁闷死了，这到底是什么原因阿

[yongz_0]

<script language=vbs>
function WtoC(nWeek)
dim aryWeekCh
aryWeekCh=Split("日;一;二;三;四;五;六",";")
WtoC=aryWeekCh(nWeek)
end function
msgbox WtoC(DatePart("w",now)-1)
</script>
我运行通过

[wojiaogyp]

把你的系统日期从星期一到星期天的调一遍,看有几个会越界.!!!

[KimSoft]

<%
function WtoC(nWeek) '将星期转换为中文
dim aryWeekCh
aryWeekCh=Split(" ;日;一;二;三;四;五;六",";")
WtoC=aryWeekCh(nWeek) '运行的时候IE显示这句有错误
end function
'调用方法是
'Response.write WtoC(DatePart("w",now))
Response.write WtoC(7)
%>

关键是把
aryWeekCh=Split("日;一;二;三;四;五;六",";")
改成
aryWeekCh=Split(" ;日;一;二;三;四;五;六",";")

[KimSoft]

还可以这样，效率会高些，便其实也高不到哪儿去。还是楼主的代码简洁些。

Dim aryWeekCh(7)

aryWeekCh(0) = " "
aryWeekCh(1) = "日"
....
aryWeekCh(7) = "六"

[yongz_0]

response.write weekdayname(weekday(now))

[yongz_0]

aryWeekCh=Split("日;一;二;三;四;五;六",";")
这样分割后aryWeekCh数组下标是从0开始到6,你的DatePart("w",datTime)返回值是从1-7,所以会提示你下标越界

[wojiaogyp]

奇怪是DatePart("w",datTime)在我的机器上一直返回7
DatePart("w",date)倒是显示正常,返回1到7(什么原因?)

[yongz_0]

dattime是什么?需要赋值的变量?如果dattime没有值,那么就是DatePart就是返回7
如果有值DatePart("w",date) ,date是当前日期DatePart("w","2005-12-13")那就是返回今天的星期数,如果是今天是星期天返回1,如果是星期一返回2,星期六返回7
ok?

[KimSoft]

用WeekDayName 也是个好方法。。。不过和服务器设置有关系。

[xiuxiumj]

对不起对不起，dattime就是now()，上面忘了改了
to KimSoft(革命的小酒天天醉):照你的方法改了，还是运行不通过
to 大家：我直接显示了DatePart("w",Now())的返回值，显示的是2,并没有越界，但是还是无法运行,直接WtoC(2)正常，WtoC(DatePart("w",Now()))就出错，什么原因阿