已知时间日期得到星期

算法如下：
基姆拉尔森计算公式
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7
  在公式中d表示日期中的日数，m表示月份数，y表示年数。

注意：在公式中有个与其他公式不同的地方：

 把一月和二月看成是上一年的十三月和十四月，例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。

代码如下：
 //y－年，m－月，d－日期

Function CaculateWeekDay(y As Integer, m As Integer, d As Integer) As String
   If m = 1 Then
      m = 13
   End If
   If m = 2 Then
      m = 14
   End If
   Dim week As Integer = (d + 2 * m + 3 *(m + 1) / 5 + y + y / 4 - y / 100 + y / 400) Mod 7
   Dim weekstr As String = ""
   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
   
   Return weekstr
End Function 'CaculateWeekDay

转载于:https://www.cnblogs.com/LCX/archive/2007/04/20/721123.html