组态王如何获取"星期几"变量，用于设备控制。

写程序

long week;
long month;
long year;
month=\\local\$Month;
year =\\local\$Year;
if (\\local\$Month<3){
month=\\local\$Month+12;
year =\\local\$Year-1;
}
week= (\\local\$Day+2*month+Trunc(3*(month+1)/5)+year+Trunc(year/4)-Trunc(year/100)+Trunc(year/400)+1)%7;
if(week==1){
\\local\星期="星期一";
}
else if(week==2){
\\local\星期="星期二";
}
else if(week==3){
\\local\星期="星期三";
}
else if(week==4){
\\local\星期="星期四";
}
else if(week==5){
\\local\星期="星期五";
}
else if(week==6){
\\local\星期="星期六";
}
else if(week==0){
\\local\星期="星期日";
}