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
  • 相关阅读:
    stm32启动代码分析
    STM32固件库详解
    ARM GCC CodeSourcery EABI下载地址
    Linux/redhat 基本网络配置
    侧边栏导航
    div滚动,页面不滚动
    自定义滚动条样式
    placeholder自定义CSS
    浏览器判断
    初始化页面垂直居中
  • 原文地址:https://www.cnblogs.com/LCX/p/721123.html
Copyright © 2011-2022 走看看