IF @offset <= 0 BEGIN SET @offset=@offset+@yDays SET @i=@i-1 END --确定农历年结束 SET @YEAR=@i
--确定农历月开始 SET @i = 1 SELECT @iLunar=dataInt FROM SolarData 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
SET @OUTPUTDATE=CAST((CAST(@YEAR AS VARCHAR(4))+''''-''''+CAST(@MONTH AS VARCHAR(2))+''''-''''+CAST(@DAY AS VARCHAR(2))) AS DATETIME) RETURN @OUTPUTDATE END
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
