|
|
IF object_id('dbo.FNGetLunarYearId') IS NOT NULL
|
|
|
BEGIN
|
|
|
DROP FUNCTION dbo.FNGetLunarYearId
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
|
|
|
CREATE FUNCTION dbo.FNGetLunarYearId
|
|
|
(
|
|
|
@Year INT
|
|
|
)
|
|
|
RETURNS INT
|
|
|
BEGIN
|
|
|
IF @Year >= 2000
|
|
|
BEGIN
|
|
|
RETURN (SELECT FDataInt FROM
|
|
|
(SELECT 2000 AS FYear,51552 AS FDataInt
|
|
|
UNION ALL SELECT 2001 AS FYear,55636 AS FDataInt
|
|
|
UNION ALL SELECT 2002 AS FYear,54432 AS FDataInt
|
|
|
UNION ALL SELECT 2003 AS FYear,55888 AS FDataInt
|
|
|
UNION ALL SELECT 2004 AS FYear,30034 AS FDataInt
|
|
|
UNION ALL SELECT 2005 AS FYear,22176 AS FDataInt
|
|
|
UNION ALL SELECT 2006 AS FYear,43959 AS FDataInt
|
|
|
UNION ALL SELECT 2007 AS FYear,9680 AS FDataInt
|
|
|
UNION ALL SELECT 2008 AS FYear,37584 AS FDataInt
|
|
|
UNION ALL SELECT 2009 AS FYear,51893 AS FDataInt
|
|
|
UNION ALL SELECT 2010 AS FYear,43344 AS FDataInt
|
|
|
UNION ALL SELECT 2011 AS FYear,46240 AS FDataInt
|
|
|
UNION ALL SELECT 2012 AS FYear,47780 AS FDataInt
|
|
|
UNION ALL SELECT 2013 AS FYear,44368 AS FDataInt
|
|
|
UNION ALL SELECT 2014 AS FYear,21977 AS FDataInt
|
|
|
UNION ALL SELECT 2015 AS FYear,19360 AS FDataInt
|
|
|
UNION ALL SELECT 2016 AS FYear,42416 AS FDataInt
|
|
|
UNION ALL SELECT 2017 AS FYear,86390 AS FDataInt
|
|
|
UNION ALL SELECT 2018 AS FYear,21168 AS FDataInt
|
|
|
UNION ALL SELECT 2019 AS FYear,43312 AS FDataInt
|
|
|
UNION ALL SELECT 2020 AS FYear,31060 AS FDataInt
|
|
|
UNION ALL SELECT 2021 AS FYear,27296 AS FDataInt
|
|
|
UNION ALL SELECT 2022 AS FYear,44368 AS FDataInt
|
|
|
UNION ALL SELECT 2023 AS FYear,23378 AS FDataInt
|
|
|
UNION ALL SELECT 2024 AS FYear,19296 AS FDataInt
|
|
|
UNION ALL SELECT 2025 AS FYear,42726 AS FDataInt
|
|
|
UNION ALL SELECT 2026 AS FYear,42208 AS FDataInt
|
|
|
UNION ALL SELECT 2027 AS FYear,53856 AS FDataInt
|
|
|
UNION ALL SELECT 2028 AS FYear,60005 AS FDataInt
|
|
|
UNION ALL SELECT 2029 AS FYear,54576 AS FDataInt
|
|
|
UNION ALL SELECT 2030 AS FYear,23200 AS FDataInt
|
|
|
UNION ALL SELECT 2031 AS FYear,30371 AS FDataInt
|
|
|
UNION ALL SELECT 2032 AS FYear,38608 AS FDataInt
|
|
|
UNION ALL SELECT 2033 AS FYear,19415 AS FDataInt
|
|
|
UNION ALL SELECT 2034 AS FYear,19152 AS FDataInt
|
|
|
UNION ALL SELECT 2035 AS FYear,42192 AS FDataInt
|
|
|
UNION ALL SELECT 2036 AS FYear,118966 AS FDataInt
|
|
|
UNION ALL SELECT 2037 AS FYear,53840 AS FDataInt
|
|
|
UNION ALL SELECT 2038 AS FYear,54560 AS FDataInt
|
|
|
UNION ALL SELECT 2039 AS FYear,56645 AS FDataInt
|
|
|
UNION ALL SELECT 2040 AS FYear,46496 AS FDataInt
|
|
|
UNION ALL SELECT 2041 AS FYear,22224 AS FDataInt
|
|
|
UNION ALL SELECT 2042 AS FYear,21938 AS FDataInt
|
|
|
UNION ALL SELECT 2043 AS FYear,18864 AS FDataInt
|
|
|
UNION ALL SELECT 2044 AS FYear,42359 AS FDataInt
|
|
|
UNION ALL SELECT 2045 AS FYear,42160 AS FDataInt
|
|
|
UNION ALL SELECT 2046 AS FYear,43600 AS FDataInt
|
|
|
UNION ALL SELECT 2047 AS FYear,111189 AS FDataInt
|
|
|
UNION ALL SELECT 2048 AS FYear,27936 AS FDataInt
|
|
|
UNION ALL SELECT 2049 AS FYear,44448 AS FDataInt
|
|
|
) AS T
|
|
|
WHERE FYear = @Year)
|
|
|
END
|
|
|
ELSE IF @Year >= 1950
|
|
|
BEGIN
|
|
|
RETURN (SELECT FDataInt FROM
|
|
|
(SELECT 1950 AS FYear,27808 AS FDataInt
|
|
|
UNION ALL SELECT 1951 AS FYear,46416 AS FDataInt
|
|
|
UNION ALL SELECT 1952 AS FYear,86869 AS FDataInt
|
|
|
UNION ALL SELECT 1953 AS FYear,19872 AS FDataInt
|
|
|
UNION ALL SELECT 1954 AS FYear,42448 AS FDataInt
|
|
|
UNION ALL SELECT 1955 AS FYear,83315 AS FDataInt
|
|
|
UNION ALL SELECT 1956 AS FYear,21200 AS FDataInt
|
|
|
UNION ALL SELECT 1957 AS FYear,43432 AS FDataInt
|
|
|
UNION ALL SELECT 1958 AS FYear,59728 AS FDataInt
|
|
|
UNION ALL SELECT 1959 AS FYear,27296 AS FDataInt
|
|
|
UNION ALL SELECT 1960 AS FYear,44710 AS FDataInt
|
|
|
UNION ALL SELECT 1961 AS FYear,43856 AS FDataInt
|
|
|
UNION ALL SELECT 1962 AS FYear,19296 AS FDataInt
|
|
|
UNION ALL SELECT 1963 AS FYear,43748 AS FDataInt
|
|
|
UNION ALL SELECT 1964 AS FYear,42352 AS FDataInt
|
|
|
UNION ALL SELECT 1965 AS FYear,21088 AS FDataInt
|
|
|
UNION ALL SELECT 1966 AS FYear,62051 AS FDataInt
|
|
|
UNION ALL SELECT 1967 AS FYear,55632 AS FDataInt
|
|
|
UNION ALL SELECT 1968 AS FYear,23383 AS FDataInt
|
|
|
UNION ALL SELECT 1969 AS FYear,22176 AS FDataInt
|
|
|
UNION ALL SELECT 1970 AS FYear,38608 AS FDataInt
|
|
|
UNION ALL SELECT 1971 AS FYear,19925 AS FDataInt
|
|
|
UNION ALL SELECT 1972 AS FYear,19152 AS FDataInt
|
|
|
UNION ALL SELECT 1973 AS FYear,42192 AS FDataInt
|
|
|
UNION ALL SELECT 1974 AS FYear,54484 AS FDataInt
|
|
|
UNION ALL SELECT 1975 AS FYear,53840 AS FDataInt
|
|
|
UNION ALL SELECT 1976 AS FYear,54616 AS FDataInt
|
|
|
UNION ALL SELECT 1977 AS FYear,46400 AS FDataInt
|
|
|
UNION ALL SELECT 1978 AS FYear,46496 AS FDataInt
|
|
|
UNION ALL SELECT 1979 AS FYear,103846 AS FDataInt
|
|
|
UNION ALL SELECT 1980 AS FYear,38320 AS FDataInt
|
|
|
UNION ALL SELECT 1981 AS FYear,18864 AS FDataInt
|
|
|
UNION ALL SELECT 1982 AS FYear,43380 AS FDataInt
|
|
|
UNION ALL SELECT 1983 AS FYear,42160 AS FDataInt
|
|
|
UNION ALL SELECT 1984 AS FYear,45690 AS FDataInt
|
|
|
UNION ALL SELECT 1985 AS FYear,27216 AS FDataInt
|
|
|
UNION ALL SELECT 1986 AS FYear,27968 AS FDataInt
|
|
|
UNION ALL SELECT 1987 AS FYear,44870 AS FDataInt
|
|
|
UNION ALL SELECT 1988 AS FYear,43872 AS FDataInt
|
|
|
UNION ALL SELECT 1989 AS FYear,38256 AS FDataInt
|
|
|
UNION ALL SELECT 1990 AS FYear,19189 AS FDataInt
|
|
|
UNION ALL SELECT 1991 AS FYear,18800 AS FDataInt
|
|
|
UNION ALL SELECT 1992 AS FYear,25776 AS FDataInt
|
|
|
UNION ALL SELECT 1993 AS FYear,29859 AS FDataInt
|
|
|
UNION ALL SELECT 1994 AS FYear,59984 AS FDataInt
|
|
|
UNION ALL SELECT 1995 AS FYear,27480 AS FDataInt
|
|
|
UNION ALL SELECT 1996 AS FYear,21952 AS FDataInt
|
|
|
UNION ALL SELECT 1997 AS FYear,43872 AS FDataInt
|
|
|
UNION ALL SELECT 1998 AS FYear,38613 AS FDataInt
|
|
|
UNION ALL SELECT 1999 AS FYear,37600 AS FDataInt
|
|
|
)AS T
|
|
|
WHERE FYear = @Year)
|
|
|
|
|
|
END
|
|
|
ELSE
|
|
|
BEGIN
|
|
|
RETURN ISNULL ( (SELECT FDataInt FROM
|
|
|
(SELECT 1900 AS FYear,19416 AS FDataInt
|
|
|
UNION ALL SELECT 1901 AS FYear,19168 AS FDataInt
|
|
|
UNION ALL SELECT 1902 AS FYear,42352 AS FDataInt
|
|
|
UNION ALL SELECT 1903 AS FYear,21717 AS FDataInt
|
|
|
UNION ALL SELECT 1904 AS FYear,53856 AS FDataInt
|
|
|
UNION ALL SELECT 1905 AS FYear,55632 AS FDataInt
|
|
|
UNION ALL SELECT 1906 AS FYear,91476 AS FDataInt
|
|
|
UNION ALL SELECT 1907 AS FYear,22176 AS FDataInt
|
|
|
UNION ALL SELECT 1908 AS FYear,39632 AS FDataInt
|
|
|
UNION ALL SELECT 1909 AS FYear,21970 AS FDataInt
|
|
|
UNION ALL SELECT 1910 AS FYear,19168 AS FDataInt
|
|
|
UNION ALL SELECT 1911 AS FYear,42422 AS FDataInt
|
|
|
UNION ALL SELECT 1912 AS FYear,42192 AS FDataInt
|
|
|
UNION ALL SELECT 1913 AS FYear,53840 AS FDataInt
|
|
|
UNION ALL SELECT 1914 AS FYear,119381 AS FDataInt
|
|
|
UNION ALL SELECT 1915 AS FYear,46400 AS FDataInt
|
|
|
UNION ALL SELECT 1916 AS FYear,54944 AS FDataInt
|
|
|
UNION ALL SELECT 1917 AS FYear,44450 AS FDataInt
|
|
|
UNION ALL SELECT 1918 AS FYear,38320 AS FDataInt
|
|
|
UNION ALL SELECT 1919 AS FYear,84343 AS FDataInt
|
|
|
UNION ALL SELECT 1920 AS FYear,18800 AS FDataInt
|
|
|
UNION ALL SELECT 1921 AS FYear,42160 AS FDataInt
|
|
|
UNION ALL SELECT 1922 AS FYear,46261 AS FDataInt
|
|
|
UNION ALL SELECT 1923 AS FYear,27216 AS FDataInt
|
|
|
UNION ALL SELECT 1924 AS FYear,27968 AS FDataInt
|
|
|
UNION ALL SELECT 1925 AS FYear,109396 AS FDataInt
|
|
|
UNION ALL SELECT 1926 AS FYear,11104 AS FDataInt
|
|
|
UNION ALL SELECT 1927 AS FYear,38256 AS FDataInt
|
|
|
UNION ALL SELECT 1928 AS FYear,21234 AS FDataInt
|
|
|
UNION ALL SELECT 1929 AS FYear,18800 AS FDataInt
|
|
|
UNION ALL SELECT 1930 AS FYear,25958 AS FDataInt
|
|
|
UNION ALL SELECT 1931 AS FYear,54432 AS FDataInt
|
|
|
UNION ALL SELECT 1932 AS FYear,59984 AS FDataInt
|
|
|
UNION ALL SELECT 1933 AS FYear,28309 AS FDataInt
|
|
|
UNION ALL SELECT 1934 AS FYear,23248 AS FDataInt
|
|
|
UNION ALL SELECT 1935 AS FYear,11104 AS FDataInt
|
|
|
UNION ALL SELECT 1936 AS FYear,100067 AS FDataInt
|
|
|
UNION ALL SELECT 1937 AS FYear,37600 AS FDataInt
|
|
|
UNION ALL SELECT 1938 AS FYear,116951 AS FDataInt
|
|
|
UNION ALL SELECT 1939 AS FYear,51536 AS FDataInt
|
|
|
UNION ALL SELECT 1940 AS FYear,54432 AS FDataInt
|
|
|
UNION ALL SELECT 1941 AS FYear,120998 AS FDataInt
|
|
|
UNION ALL SELECT 1942 AS FYear,46416 AS FDataInt
|
|
|
UNION ALL SELECT 1943 AS FYear,22176 AS FDataInt
|
|
|
UNION ALL SELECT 1944 AS FYear,107956 AS FDataInt
|
|
|
UNION ALL SELECT 1945 AS FYear,9680 AS FDataInt
|
|
|
UNION ALL SELECT 1946 AS FYear,37584 AS FDataInt
|
|
|
UNION ALL SELECT 1947 AS FYear,53938 AS FDataInt
|
|
|
UNION ALL SELECT 1948 AS FYear,43344 AS FDataInt
|
|
|
UNION ALL SELECT 1949 AS FYear,46423 AS FDataInt
|
|
|
)AS T
|
|
|
WHERE FYear = @Year),0)
|
|
|
|
|
|
END
|
|
|
RETURN 0
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
|
|
|
IF object_id('dbo.PConvertLunar','P') IS NOT NULL
|
|
|
BEGIN
|
|
|
DROP PROCEDURE dbo.PConvertLunar
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
|
|
|
IF object_id('dbo.PConvertLunar','P') IS NOT NULL
|
|
|
BEGIN
|
|
|
DROP PROCEDURE dbo.PConvertLunar
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
IF OBJECT_ID('TLunarCache#') IS NULL
|
|
|
BEGIN
|
|
|
CREATE TABLE TLunarCache#
|
|
|
(
|
|
|
FGregorian VARCHAR(10),
|
|
|
FLunar VARCHAR(10),
|
|
|
CONSTRAINT PK_LUNAR_CACHE PRIMARY KEY CLUSTERED(FGregorian)
|
|
|
)
|
|
|
CREATE NONCLUSTERED INDEX IX_LUNAR_CACHE_LUNAR ON TLunarCache# (FLunar)
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
CREATE PROCEDURE dbo.PConvertLunar
|
|
|
(
|
|
|
@Type CHAR, --'L' ת<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD>, 'G'ת<EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><EFBFBD><EFBFBD>
|
|
|
@Source VARCHAR(10),
|
|
|
@Dest VARCHAR(10) OUTPUT
|
|
|
)
|
|
|
AS
|
|
|
BEGIN
|
|
|
|
|
|
IF @Type = 'G'
|
|
|
BEGIN
|
|
|
SELECT @Dest = MIN(FGregorian)
|
|
|
FROM TLunarCache# WITH(NOLOCK)
|
|
|
WHERE FLunar = @Source
|
|
|
END
|
|
|
ELSE IF @Type = 'L'
|
|
|
BEGIN
|
|
|
SELECT @Dest = FLunar
|
|
|
FROM TLunarCache# WITH(NOLOCK)
|
|
|
WHERE FGregorian = @Source
|
|
|
END
|
|
|
ELSE
|
|
|
BEGIN
|
|
|
RETURN
|
|
|
END
|
|
|
|
|
|
IF @Dest IS NOT NULL
|
|
|
BEGIN
|
|
|
RETURN
|
|
|
END
|
|
|
|
|
|
DECLARE @Year INT
|
|
|
SELECT @Year = LEFT(@Source,4)
|
|
|
IF @Year < 1901 OR @Year > 2049
|
|
|
BEGIN
|
|
|
SELECT @Dest = ''
|
|
|
RETURN
|
|
|
END
|
|
|
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>л<EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD>
|
|
|
DECLARE @FromDate DATETIME
|
|
|
DECLARE @ToDate DATETIME
|
|
|
DECLARE @Lunar VARCHAR(10)
|
|
|
IF @Year = 1901
|
|
|
BEGIN
|
|
|
SELECT @FromDate = CAST(@Year AS VARCHAR(4)) + '-01-01'
|
|
|
END
|
|
|
ELSE
|
|
|
BEGIN
|
|
|
SELECT @FromDate = DATEADD(YEAR,-1,LEFT(@Source,4) + '-01-01')
|
|
|
END
|
|
|
|
|
|
IF @Year = 2049
|
|
|
BEGIN
|
|
|
SELECT @ToDate = CAST(@Year AS VARCHAR(4)) + '-12-31'
|
|
|
END
|
|
|
ELSE
|
|
|
BEGIN
|
|
|
SELECT @ToDate = DATEADD(YEAR,1,LEFT(@Source,4) + '-12-31')
|
|
|
END
|
|
|
|
|
|
--ũת<EFBFBD><EFBFBD>
|
|
|
IF @Type = 'G'
|
|
|
BEGIN
|
|
|
WHILE(@FromDate <= @ToDate)
|
|
|
BEGIN
|
|
|
IF NOT EXISTS(SELECT 1 FROM TLunarCache# WHERE FGregorian = @FromDate)
|
|
|
BEGIN
|
|
|
|
|
|
SELECT @Lunar = dbo.FNGetLunar(@FromDate)
|
|
|
IF @Lunar = @Source
|
|
|
BEGIN
|
|
|
SELECT @Dest = CONVERT(VARCHAR(10),@FromDate,23)
|
|
|
END
|
|
|
|
|
|
INSERT TLunarCache#(FGregorian,FLunar)
|
|
|
SELECT CONVERT(VARCHAR(10),@FromDate,23),@Lunar
|
|
|
END
|
|
|
SELECT @FromDate = DATEADD(DAY,1,@FromDate)
|
|
|
END
|
|
|
END
|
|
|
ELSE
|
|
|
BEGIN
|
|
|
WHILE(@FromDate <= @ToDate)
|
|
|
BEGIN
|
|
|
IF NOT EXISTS(SELECT 1 FROM TLunarCache# WHERE FGregorian = @FromDate)
|
|
|
BEGIN
|
|
|
SELECT @Lunar = dbo.FNGetLunar(@FromDate)
|
|
|
INSERT TLunarCache#(FGregorian,FLunar)
|
|
|
SELECT CONVERT(VARCHAR(10),@FromDate,23),@Lunar
|
|
|
END
|
|
|
SELECT @FromDate = DATEADD(DAY,1,@FromDate)
|
|
|
END
|
|
|
SELECT @Dest = dbo.FNGetLunar(@Source)
|
|
|
END
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
IF object_id('dbo.FNGetLunar') IS NOT NULL
|
|
|
BEGIN
|
|
|
DROP FUNCTION dbo.FNGetLunar
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
|
|
|
CREATE FUNCTION dbo.FNGetLunar (@Date DATETIME)
|
|
|
RETURNS VARCHAR(10)
|
|
|
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 @mleap1 int
|
|
|
declare @mleapnum int
|
|
|
declare @bleap smallint
|
|
|
declare @temp int
|
|
|
declare @year nvarchar(10)
|
|
|
declare @month nvarchar(10)
|
|
|
declare @day nvarchar(10)
|
|
|
declare @chinesenum nvarchar(10)
|
|
|
declare @outputdate nvarchar(30)
|
|
|
set @offset=datediff(day,'1900-01-30',@Date)
|
|
|
--ȷ<EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD>꿪ʼ
|
|
|
set @i=1900
|
|
|
--set @offset=@soldata
|
|
|
while @i<2050 and @offset>0
|
|
|
begin
|
|
|
set @ydays=348
|
|
|
set @mleapnum=0
|
|
|
select @ilunar=dbo.FNGetLunarYearId(@i)
|
|
|
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @j=32768
|
|
|
while @j>8
|
|
|
begin
|
|
|
if @ilunar & @j >0
|
|
|
set @ydays=@ydays+1
|
|
|
set @j=@j/2
|
|
|
end
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD><EFBFBD><EFBFBD> 1-12 , û<EFBFBD><EFBFBD> 0
|
|
|
set @mleap = @ilunar & 15
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ,<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
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
|
|
|
select @ilunar=dbo.FNGetLunarYearId(@i)
|
|
|
end
|
|
|
|
|
|
--ȷ<EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @year=@i
|
|
|
--ȷ<EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD>¿<EFBFBD>ʼ
|
|
|
set @i = 1
|
|
|
--<EFBFBD>ж<EFBFBD><EFBFBD>Ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @mleap = @ilunar & 15
|
|
|
set @bleap = 0
|
|
|
while @i < 13 and @offset > 0
|
|
|
begin
|
|
|
--<EFBFBD>ж<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @mdays=0
|
|
|
if (@mleap > 0 and @i = (@mleap+1) and @bleap=0)
|
|
|
begin--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @i=@i-1
|
|
|
set @bleap=1
|
|
|
set @mleap1= @mleap
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
if @ilunar & 65536 > 0
|
|
|
set @mdays = 30
|
|
|
else
|
|
|
set @mdays = 29
|
|
|
end
|
|
|
else
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
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
|
|
|
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
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
|
|
|
|
|
|
--ȷ<EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD>½<EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @month=@i
|
|
|
|
|
|
--ȷ<EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD><EFBFBD>ս<EFBFBD><EFBFBD><EFBFBD>
|
|
|
set @day=ltrim(@offset)
|
|
|
--<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
SELECT @outputdate = @year + '-' + RIGHT('0' + @month,2) + '-' + RIGHT('0' + @day,2)
|
|
|
|
|
|
return @outputdate
|
|
|
END
|
|
|
GO
|
|
|
|
|
|
|
