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