打印本文 打印本文 关闭窗口 关闭窗口
SQL Server中如何计算农历
作者:武汉SEO闵涛  文章来源:敏韬网  点击数3112  更新时间:2007/11/14 11:07:30  文章录入:mintao  责任编辑:mintao
25d0'''',9680  
UNION  ALL  SELECT  2008,''''0x092d0'''',37584  UNION  ALL  SELECT  2009,''''0x0cab5'''',51893  
UNION  ALL  SELECT  2010,''''0x0a950'''',43344  UNION  ALL  SELECT  2011,''''0x0b4a0'''',46240  
UNION  ALL  SELECT  2012,''''0x0baa4'''',47780  UNION  ALL  SELECT  2013,''''0x0ad50'''',44368  
UNION  ALL  SELECT  2014,''''0x055d9'''',21977  UNION  ALL  SELECT  2015,''''0x04ba0'''',19360  
UNION  ALL  SELECT  2016,''''0x0a5b0'''',42416  UNION  ALL  SELECT  2017,''''0x15176'''',86390  
UNION  ALL  SELECT  2018,''''0x052b0'''',21168  UNION  ALL  SELECT  2019,''''0x0a930'''',43312  
UNION  ALL  SELECT  2020,''''0x07954'''',31060  UNION  ALL  SELECT  2021,''''0x06aa0'''',27296  
UNION  ALL  SELECT  2022,''''0x0ad50'''',44368  UNION  ALL  SELECT  2023,''''0x05b52'''',23378  
UNION  ALL  SELECT  2024,''''0x04b60'''',19296  UNION  ALL  SELECT  2025,''''0x0a6e6'''',42726  
UNION  ALL  SELECT  2026,''''0x0a4e0'''',42208  UNION  ALL  SELECT  2027,''''0x0d260'''',53856  
UNION  ALL  SELECT  2028,''''0x0ea65'''',60005  UNION  ALL  SELECT  2029,''''0x0d530'''',54576  
UNION  ALL  SELECT  2030,''''0x05aa0'''',23200  UNION  ALL  SELECT  2031,''''0x076a3'''',30371  
UNION  ALL  SELECT  2032,''''0x096d0'''',38608  UNION  ALL  SELECT  2033,''''0x04bd7'''',19415  
UNION  ALL  SELECT  2034,''''0x04ad0'''',19152  UNION  ALL  SELECT  2035,''''0x0a4d0'''',42192  
UNION  ALL  SELECT  2036,''''0x1d0b6'''',118966  UNION  ALL  SELECT  2037,''''0x0d250'''',53840  
UNION  ALL  SELECT  2038,''''0x0d520'''',54560  UNION  ALL  SELECT  2039,''''0x0dd45'''',56645  
UNION  ALL  SELECT  2040,''''0x0b5a0'''',46496  UNION  ALL  SELECT  2041,''''0x056d0'''',22224  
UNION  ALL  SELECT  2042,''''0x055b2'''',21938  UNION  ALL  SELECT  2043,''''0x049b0'''',18864  
UNION  ALL  SELECT  2044,''''0x0a577'''',42359  UNION  ALL  SELECT  2045,''''0x0a4b0'''',42160  
UNION  ALL  SELECT  2046,''''0x0aa50'''',43600  UNION  ALL  SELECT  2047,''''0x1b255'''',111189  
UNION  ALL  SELECT  2048,''''0x06d20'''',27936  UNION  ALL  SELECT  2049,''''0x0ada0'''',44448  

--===============================================================

--然后就可以用这个函数来取农历日期了  
 
CREATE  FUNCTION  fn_GetLunar(@solarDay  DATETIME)          
RETURNS  datetime      
     
AS          
BEGIN          
   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  DATETIME          
     
   --保证传进来的日期是不带时间          
   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  SolarData  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  @

上一页  [1] [2] [3]  下一页

打印本文 打印本文 关闭窗口 关闭窗口