ALTER   FUNCTION   [dbo].[f_SysGetLunar](  
   @solarDay   DATETIME)          
 RETURNS   varchar(200)
 AS          
 BEGIN
   --转自CSDN 挖土
     DECLARE   @solData   int          
     DECLARE   @offset   int          
     DECLARE   @iLunar   int          
     DECLARE   @i   INT            
     DECLARE   @j   INT            
     DECLARE   @yDays   int          
     DECLARE   @mDays   int          
     DECLARE   @mLeap   int          
     DECLARE   @mLeapNum   int          
     DECLARE   @bLeap   smallint          
     DECLARE   @temp   int          
          
     DECLARE   @YEAR   INT            
     DECLARE   @MONTH   INT          
     DECLARE   @DAY   INT          
              
     DECLARE   @OUTPUTDATE varchar(100)  
      
     --保证传进来的日期是不带时间          
     SET   @solarDay=cast(@solarDay   AS   char(10))          
     SET   @offset=CAST(@solarDay-'1900-01-30'   AS   INT)      
      
          
     --确定农历年开始          
     SET   @i=1900          
     --SET   @offset=@solData          
     WHILE   @i<2050   AND   @offset>0          
     BEGIN          
         SET   @yDays=348          
         SET   @mLeapNum=0          
         SELECT   @iLunar=dataInt   FROM   Sysc80   WHERE   yearId=@i          
          
         --传回农历年的总天数          
         SET   @j=32768          
         WHILE   @j>8          
         BEGIN          
             IF   @iLunar   &   @j   >0          
                 SET   @yDays=@yDays+1          
             SET   @j=@j/2          
         END          
          
         --传回农历年闰哪个月   1-12   ,   没闰传回   0          
         SET   @mLeap   =   @iLunar   &   15          
          
         --传回农历年闰月的天数   ,加在年的总天数上          
         IF   @mLeap   >   0          
         BEGIN          
             IF   @iLunar   &   65536   >   0          
                 SET   @mLeapNum=30          
             ELSE            
                 SET   @mLeapNum=29          
          
             SET   @yDays=@yDays+@mLeapNum          
         END          
                  
         SET   @offset=@offset-@yDays          
         SET   @i=@i+1          
     END          
              
     IF   @offset   <=   0          
     BEGIN          
         SET   @offset=@offset+@yDays          
         SET   @i=@i-1          
     END          
     --确定农历年结束              
     SET   @YEAR=@i          
      
     --确定农历月开始          
     SET   @i   =   1          
     SELECT   @iLunar=dataInt   FROM   Sysc80   WHERE   yearId=@YEAR      
      
     --判断那个月是润月          
     SET   @mLeap   =   @iLunar   &   15          
     SET   @bLeap   =   0        
      
     WHILE   @i   <   13   AND   @offset   >   0          
     BEGIN          
         --判断润月          
         SET   @mDays=0          
         IF   (@mLeap   >   0   AND   @i   =   (@mLeap+1)   AND   @bLeap=0)          
         BEGIN--是润月          
             SET   @i=@i-1          
             SET   @bLeap=1          
             --传回农历年闰月的天数          
             IF   @iLunar   &   65536   >   0          
                 SET   @mDays   =   30          
             ELSE            
                 SET   @mDays   =   29          
         END          
         ELSE          
         --不是润月          
         BEGIN          
             SET   @j=1          
             SET   @temp   =   65536            
             WHILE   @j<=@i          
             BEGIN          
                 SET   @temp=@temp/2          
                 SET   @j=@j+1          
             END          
          
             IF   @iLunar   &   @temp   >   0          
                 SET   @mDays   =   30          
             ELSE          
                 SET   @mDays   =   29          
         END          
              
         --解除闰月      
         IF   @bLeap=1   AND   @i=   (@mLeap+1)      
             SET   @bLeap=0      
      
         SET   @offset=@offset-@mDays          
         SET   @i=@i+1          
     END          
          
     IF   @offset   <=   0          
     BEGIN          
         SET   @offset=@offset+@mDays          
         SET   @i=@i-1          
     END          
      
     --确定农历月结束              
     SET   @MONTH=@i      
          
     --确定农历日结束              
     SET   @DAY=@offset          
     if   @bLeap=1    
     SET   @OUTPUTDATE=(CAST(@YEAR   AS   VARCHAR(4))+'-润'+CAST(@MONTH   AS   VARCHAR(2))+'-'+CAST(@DAY   AS   VARCHAR(2)))  
     else  
     SET   @OUTPUTDATE=(CAST(@YEAR   AS   VARCHAR(4))+'-'+CAST(@MONTH   AS   VARCHAR(2))+'-'+CAST(@DAY   AS   VARCHAR(2)))  
     RETURN   @OUTPUTDATE      
 END

--********************************************************

--Sysc80表内容

select * from Sysc80

yearId databin dataInt
1900 19416 19416
1901 19168 19168
1902 42352 42352
1903 21717 21717
1904 53856 53856
1905 55632 55632
1906 91476 91476
1907 22176 22176
1908 39632 39632
1909 21970 21970
1910 19168 19168
1911 42422 42422
1912 42192 42192
1913 53840 53840
1914 119381 119381
1915 46400 46400
1916 54944 54944
1917 44450 44450
1918 38320 38320
1919 84343 84343
1920 18800 18800
1921 42160 42160
1922 46261 46261
1923 27216 27216
1924 27968 27968
1925 109396 109396
1926 11104 11104
1927 38256 38256
1928 21234 21234
1929 18800 18800
1930 25958 25958
1931 54432 54432
1932 59984 59984
1933 28309 28309
1934 23248 23248
1935 11104 11104
1936 100067 100067
1937 37600 37600
1938 116951 116951
1939 51536 51536
1940 54432 54432
1941 120998 120998
1942 46416 46416
1943 22176 22176
1944 107956 107956
1945 9680 9680
1946 37584 37584
1947 53938 53938
1948 43344 43344
1949 46423 46423
1950 27808 27808
1951 46416 46416
1952 86869 86869
1953 19872 19872
1954 42448 42448
1955 83315 83315
1956 21200 21200
1957 43432 43432
1958 59728 59728
1959 27296 27296
1960 44710 44710
1961 43856 43856
1962 19296 19296
1963 43748 43748
1964 42352 42352
1965 21088 21088
1966 62051 62051
1967 55632 55632
1968 23383 23383
1969 22176 22176
1970 38608 38608
1971 19925 19925
1972 19152 19152
1973 42192 42192
1974 54484 54484
1975 53840 53840
1976 54616 54616
1977 46400 46400
1978 46496 46496
1979 103846 103846
1980 38320 38320
1981 18864 18864
1982 43380 43380
1983 42160 42160
1984 45690 45690
1985 27216 27216
1986 27968 27968
1987 44870 44870
1988 43872 43872
1989 38256 38256
1990 19189 19189
1991 18800 18800
1992 25776 25776
1993 29859 29859
1994 59984 59984
1995 27480 27480
1996 21952 21952
1997 43872 43872
1998 38613 38613
1999 37600 37600
2000 51552 51552
2001 55636 55636
2002 54432 54432
2003 55888 55888
2004 30034 30034
2005 22176 22176
2006 43959 43959
2007 9680 9680
2008 37584 37584
2009 51893 51893
2010 43344 43344
2011 46240 46240
2012 47780 47780
2013 44368 44368
2014 21977 21977
2015 19360 19360
2016 42416 42416
2017 86390 86390
2018 21168 21168
2019 43312 43312
2020 31060 31060
2021 27296 27296
2022 44368 44368
2023 23378 23378
2024 19296 19296
2025 42726 42726
2026 42208 42208
2027 53856 53856
2028 60005 60005
2029 54576 54576
2030 23200 23200
2031 30371 30371
2032 38608 38608
2033 19415 19415
2034 19152 19152
2035 42192 42192
2036 118966 118966
2037 53840 53840
2038 54560 54560
2039 56645 56645
2040 46496 46496
2041 22224 22224
2042 21938 21938
2043 18864 18864
2044 42359 42359
2045 42160 42160
2046 43600 43600
2047 111189 111189
2048 27936 27936
2049 44448 44448

SQLServer公历转农历函数(1900年-2049年)的更多相关文章

  1. 公历转农历的python实现

    大杂烩.作为自己的记录,保存. 两个要点: 1.公历转农历用了查表法(第126行) 2.节气用了天文法?(第176行)  运行图 (背景是hao123万年历) 源代码: # lunar.py # 20 ...

  2. javascript 公历与农历相互转换工具类

    /** * 公历[1900-1-31,2100-12-31]时间区间内的公历.农历互转 * @charset UTF-8 * @Author Jea杨(JJonline@JJonline.Cn) * ...

  3. (转)笔记320 SQLSERVER中的加密函数 2013-7-11

    1 --SQLSERVER中的加密函数 2013-7-11 2 ENCRYPTBYASYMKEY() --非对称密钥 3 ENCRYPTBYCERT() --证书加密 4 ENCRYPTBYKEY() ...

  4. C#公历转农历算法

    C#公历转农历算法,高手们也可以改写一下让其更加有效率! Code/// <summary> /// LunDay 的摘要说明. /// 用法说明 /// 直接调用即可,比较简单 /// ...

  5. SqlServer日期(convert函数,getdate函数)

    SqlServer日期(convert函数,getdate函数) 函数GETDATE()的返回值在显示时只显示到秒.实际上,SQL Sever内部时间可以精确到毫秒级(确切地说,可以精确到3.33毫秒 ...

  6. iOS 获取公历、农历日期的年月日

    iOS 获取公历.农历日期的年月日 介绍三种方法获取 Date (NSDate) 的年月日. 用 date 表示当前日期.测试日期为公历 2017 年 2 月 5 日,农历丁酉年,鸡年,正月初九. l ...

  7. Java 公历转农历,然后农历减一年(或者几天或者任意天),再把这个日期转成公历

    由于系统的提醒有可能是农历的今天或指定时间要用quartz 实现定时任务 公历转农历,然后农历减一年(或者几天或者任意天),再把这个日期转成公历. 网上很多农历转公历的程序都有问题,QQ.百度的也有 ...

  8. Andorid 之日历控件,可左右滑动,包含公历,农历,节假日等

    公司项目需要日历这个功能,经过查阅资料写了个demo,包含公历,农历,节假日等,还可左右滑动. 效果图: 代码: public class MainActivity extends AppCompat ...

  9. SQLSERVER中的 CEILING函数和 FLOOR函数

    SQLSERVER中的 CEILING函数和 FLOOR函数 --SQLSERVER中的 CEILING函数和 FLOOR函数 --ceiling函数返回大于或等于所给数字表达式的最小整数. --fl ...

随机推荐

  1. Uploadify 上传文件插件详解

    Uploadify 上传文件插件详解 Uploadify是JQuery的一个上传插件,实现的效果非常不错,带进度显示.不过官方提供的实例时php版本的,本文将详细介绍Uploadify在Aspnet中 ...

  2. 数论(poj 1401)

    题目:Factorial 题意:求N!末尾的0 的数量. 思路:10  = 2 * 5:N!中的2 的数量肯定比 5多:只需寻找5 的数量,暴力寻找TLE: 快点的方法:f(N) = N/5 + f( ...

  3. hdu 1231

    最大连续子序列 Time Limit: 1000MS   Memory Limit: 32768KB   64bit IO Format: %I64d & %I64u Submit Statu ...

  4. 20151009 C# 第一篇 程序编写规范

    20151009 程序编写规范 1. 代码书写规则: 1).尽量使用接口,然后使用类实现接口. 2).关键语句写注释 3).避免写超过5个参数的方法,如果要传递多个参数,则使用结构 4).避免代码量过 ...

  5. log4net详细配置说明

    原文地址:http://blog.sina.com.cn/s/blog_671486bc01011rdj.html 1.概述 log4net是.Net下一个非常优秀的开源日志记录组件.log4net记 ...

  6. ubuntu 安装pyqt4 eric

    tar xvf eric4-4.5.7.tar.gztar xvf eric4-i18n-zh_CN.GB2312-4.5.7.tar.gzcd eric4-4.5.7/python install. ...

  7. js中比较实用的时期格式化

    在javascript中,关于时间格式的转换. 可以将“2010-1-2” 转换为 “2010-01-02 00:00:00” 或者将“2010-1-2 2:13:6" 转换为 “2010- ...

  8. iBoxDB for .NET v1.5发布, 移动NoSQL数据库

    iBoxDB for .NET是一个无须安装配置就可以运行的数据库. 拥有非常高效的性能同时能提供事务支持. 可嵌入到应用程序中也可以使用TCP与应用程序进行远程数据交互 使用易用的操作接口,不需要阅 ...

  9. 一步一步搭建客服系统 (4) 客户列表 - JS($.ajax)调用WCF 遇到的各种坑

    本文以一个生成.获取“客户列表”的demo来介绍如何用js调用wcf,以及遇到的各种问题. 1 创建WCF服务 1.1 定义接口 创建一个接口,指定用json的格式:   [ServiceContra ...

  10. Entity Framework问题总结

    Entity Framework WITH(NOLOCK) EF本身不支持WITH(NOLOCK), 都指出建议设置事务的级别为允许脏读. IsolationLevel = IsolationLeve ...