已知时间日期得到星期

算法如下：
基姆拉尔森计算公式
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