把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