zoukankan      html  css  js  c++  java
  • 已知时间日期得到星期

    算法如下:
    基姆拉尔森计算公式
    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 IntegerAs 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 / 400Mod 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
  • 相关阅读:
    Node的Buffer
    node中定时器的“先进”用法
    比较setImmediate(func),setTimeout(func),process.nextTick(func)
    node.js事件触发
    node.js express的安装过程
    ”靠谱的C#“单例模式
    JS性能消耗在哪里?
    如何建立索引
    优化之sitemap+RSS
    优化のzencart URL &zenid=.....
  • 原文地址:https://www.cnblogs.com/LCX/p/721123.html
Copyright © 2011-2022 走看看