function CaculateWeekDay(y,m,d)
 if m=1 then 
    m = 13
    y = y-1
 end if 
 if m=2 then 
    m = 14
    y = y -1
 end if
 week=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7+1
 weekstr=""
 select case week
    case 1
        weekstr = "一"
    case 2
        weekstr = "二"
    case 3
        weekstr = "三"
    case 4
        weekstr = "四"
    case 5
        weekstr = "五"
    case 6
        weekstr = "六"
    case 7 
        weekstr = "日"
 end select
 CaculateWeekDay = weekstr
end function