计算某年某月某日是星期几

基姆拉尔森计算公式
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7

d 天
m 月
y 年
1月2月换算为去年的13 14月计算
w=0是  星期一，依次类推
其VC实现代码为

CString CCalculateWeekDlg::CaculateWeekDay(int y, int m, int d)
{
 if(m==1) {m=13;y--;}
 if(m==2) {m=14;y--;}
 int week=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400)%7;
 CString weekstr="";
 switch(week)
 {
    case 0: weekstr="一"; break;
    case 1: weekstr="二"; break;
    case 2: weekstr="三"; break;
    case 3: weekstr="四"; break;
    case 4: weekstr="五"; break;
    case 5: weekstr="六"; break;
    case 6: weekstr="日"; break;
 }
 
 return weekstr;
}