把weekday星期函数的数字变为中文

作者:网络 来源:佚名 更新时间:2009-01-18 20:18:03 点击:

把weekday星期函数的数字变为中文,收藏备用。

以下是引用片段:
function formatweekday(strdate)
select case strdate
 case 1:formatweekday = "日"
 case 2:formatweekday = "一"
 case 3:formatweekday = "二"
 case 4:formatweekday = "三"
 case 5:formatweekday = "四"
 case 6:formatweekday = "五"
 case 7:formatweekday = "六"
end select
end function