DIY 跟据日期计算星期几

——
蔡勒（Zeller）公式
历史上的某一天是星期几？未来的某一天是星期几？关于这个问题，有很多计算公式（两个通用计算公式和一些分段计算公式），其中最著名的是蔡勒（Zeller）公式。即w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1
公式中的符号含义如下，w：星期；c：世纪-1；y：年（两位数）；m：月（m大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）；d：日；[ ]代表取整，即只要整数部分。(C是世纪数减一，y是年份后两位，M是月份，d是日数。1月和2月要按上一年的13月和 14月来算，这时C和y均按上一年取值。)
算出来的W除以7，余数是几就是星期几。如果余数是0，则为星期日。
以2049年10月1日（100周年国庆）为例，用蔡勒（Zeller）公式进行计算，过程如下：
蔡勒（Zeller）公式：w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1
=49+[49/4]+[20/4]-2×20+[26× (10+1)/10]+1-1
=49+[12.25]+5-40+[28.6]

<span style="font-family: tahoma, 宋体; line-height: 21.3333px; background-color: rgb(250, 250, 252);">=49+12+5-40+28</span>

=54 (除以7余5)
即2049年10月1日（100周年国庆）是星期5。

/*

* 这里通过蔡勒公式算出某一天是星期几, C#
*/

private String GetWeek(String _date)
{
DateTime tdate = Convert.ToDateTime(_date);
String myWeek = null;

int y = int.Parse(("00" + tdate.Year.ToString()).Substring(tdate.Year.ToString().Length, 2));
int m = tdate.Month > 2 ? tdate.Month : tdate.Month+12;
int c = (tdate.Year / 100);
int d = tdate.Day;
int w = (y + (y / 4) + (c / 4) - 2 * c + (26 * (m + 1) / 10) + d - 1) % 7;
switch (w)
{
case 0:
myWeek = "日";
break;
case 1:
myWeek = "一";
break;
case 2:
myWeek = "二";
break;
case 3:
myWeek = "三";
break;
case 4:
myWeek = "四";
break;
case 5:
myWeek = "五";
break;
case 6:
myWeek = "六";
break;
default:
break;
}

myWeek = tdate.Year + "年" + tdate.Month + "月" + tdate.Day + "日" + "周" + myWeek;
return myWeek;
}

VB:

Private Function GetWeek(ByVal _date As String) As String
Dim tdate As DateTime = Convert.ToDateTime(_date)
Dim myWeek As String = String.Empty

Dim y As Integer = CUInt(("00" + tdate.Year.ToString()).Substring(tdate.Year.ToString().Length, 2))
Dim m As Integer = IIf(tdate.Month > 2, tdate.Month, tdate.Month + 12)
Dim c As Integer = (tdate.Year \ 100)
Dim d As Integer = tdate.Day
Dim w As Integer = (y + (y \ 4) + (c \ 4) - 2 * c + (26 * (m + 1) \ 10) + d - 1) Mod 7

Select w
Case 0
myWeek = "日"
Case 1
myWeek = "一"
Case 2
myWeek = "二"
Case 3
myWeek = "三"
Case 4
myWeek = "四"
Case 5
myWeek = "五"
Case 6
myWeek = "六"
End Select

myWeek = tdate.Year.ToString + "年" + tdate.Month.ToString + "月" + tdate.Day.ToString + "日" + "周" + myWeek
Return myWeek
End Function