您的位置：首页 > 数据库

完善SQL农历转换函数（显示中文格式，加入润月的显示）

2011-06-07 09:58 351 查看

--
------------------------------------------------------------------------

--
Author : 原著：改编：htl258(Tony)

--
Date : 2010-04-24 06:39:55

--
Version:Microsoft SQL Server 2008 (RTM) - 10.0.1600.22 (Intel X86)

--
Jul 9 2008 14:43:34

--
Copyright (c) 1988-2008 Microsoft Corporation

--
Developer Edition on Windows NT 5.1 <X86> (Build 2600: Service Pack 3)

--
Blog : http://blog.csdn.net/htl258
--
Subject: 完善SQL农历转换函数（显示中文格式，加入润月的显示）

--
------------------------------------------------------------------------

--
注：由于找一时找不到原版作者，所以暂未填入。大家有知道的告知一下，谢谢！

--
创建基础数据表

if

object_id
(
'
SolarData
'
)
is

not

null

drop

table
SolarData

go

create

table
SolarData

(

yearid
int

not

null
,

data
char
(
7
)
not

null
,

dataint
int

not

null

)

--
插入数据

insert

into

SolarData
select

1900
,
'
0x04bd8
'
,
19416

union

all

select

1901
,
'
0x04ae0
'
,
19168

union

all

select

1902
,
'
0x0a570
'
,
42352

union

all

select

1903
,
'
0x054d5
'
,
21717

union

all

select

1904
,
'
0x0d260
'
,
53856

union

all

select

1905
,
'
0x0d950
'
,
55632

union

all

select

1906
,
'
0x16554
'
,
91476

union

all

select

1907
,
'
0x056a0
'
,
22176

union

all

select

1908
,
'
0x09ad0
'
,
39632

union

all

select

1909
,
'
0x055d2
'
,
21970

union

all

select

1910
,
'
0x04ae0
'
,
19168

union

all

select

1911
,
'
0x0a5b6
'
,
42422

union

all

select

1912
,
'
0x0a4d0
'
,
42192

union

all

select

1913
,
'
0x0d250
'
,
53840

union

all

select

1914
,
'
0x1d255
'
,
119381

union

all

select

1915
,
'
0x0b540
'
,
46400

union

all

select

1916
,
'
0x0d6a0
'
,
54944

union

all

select

1917
,
'
0x0ada2
'
,
44450

union

all

select

1918
,
'
0x095b0
'
,
38320

union

all

select

1919
,
'
0x14977
'
,
84343

union

all

select

1920
,
'
0x04970
'
,
18800

union

all

select

1921
,
'
0x0a4b0
'
,
42160

union

all

select

1922
,
'
0x0b4b5
'
,
46261

union

all

select

1923
,
'
0x06a50
'
,
27216

union

all

select

1924
,
'
0x06d40
'
,
27968

union

all

select

1925
,
'
0x1ab54
'
,
109396

union

all

select

1926
,
'
0x02b60
'
,
11104

union

all

select

1927
,
'
0x09570
'
,
38256

union

all

select

1928
,
'
0x052f2
'
,
21234

union

all

select

1929
,
'
0x04970
'
,
18800

union

all

select

1930
,
'
0x06566
'
,
25958

union

all

select

1931
,
'
0x0d4a0
'
,
54432

union

all

select

1932
,
'
0x0ea50
'
,
59984

union

all

select

1933
,
'
0x06e95
'
,
28309

union

all

select

1934
,
'
0x05ad0
'
,
23248

union

all

select

1935
,
'
0x02b60
'
,
11104

union

all

select

1936
,
'
0x186e3
'
,
100067

union

all

select

1937
,
'
0x092e0
'
,
37600

union

all

select

1938
,
'
0x1c8d7
'
,
116951

union

all

select

1939
,
'
0x0c950
'
,
51536

union

all

select

1940
,
'
0x0d4a0
'
,
54432

union

all

select

1941
,
'
0x1d8a6
'
,
120998

union

all

select

1942
,
'
0x0b550
'
,
46416

union

all

select

1943
,
'
0x056a0
'
,
22176

union

all

select

1944
,
'
0x1a5b4
'
,
107956

union

all

select

1945
,
'
0x025d0
'
,
9680

union

all

select

1946
,
'
0x092d0
'
,
37584

union

all

select

1947
,
'
0x0d2b2
'
,
53938

union

all

select

1948
,
'
0x0a950
'
,
43344

union

all

select

1949
,
'
0x0b557
'
,
46423

union

all

select

1950
,
'
0x06ca0
'
,
27808

union

all

select

1951
,
'
0x0b550
'
,
46416

union

all

select

1952
,
'
0x15355
'
,
86869

union

all

select

1953
,
'
0x04da0
'
,
19872

union

all

select

1954
,
'
0x0a5d0
'
,
42448

union

all

select

1955
,
'
0x14573
'
,
83315

union

all

select

1956
,
'
0x052d0
'
,
21200

union

all

select

1957
,
'
0x0a9a8
'
,
43432

union

all

select

1958
,
'
0x0e950
'
,
59728

union

all

select

1959
,
'
0x06aa0
'
,
27296

union

all

select

1960
,
'
0x0aea6
'
,
44710

union

all

select

1961
,
'
0x0ab50
'
,
43856

union

all

select

1962
,
'
0x04b60
'
,
19296

union

all

select

1963
,
'
0x0aae4
'
,
43748

union

all

select

1964
,
'
0x0a570
'
,
42352

union

all

select

1965
,
'
0x05260
'
,
21088

union

all

select

1966
,
'
0x0f263
'
,
62051

union

all

select

1967
,
'
0x0d950
'
,
55632

union

all

select

1968
,
'
0x05b57
'
,
23383

union

all

select

1969
,
'
0x056a0
'
,
22176

union

all

select

1970
,
'
0x096d0
'
,
38608

union

all

select

1971
,
'
0x04dd5
'
,
19925

union

all

select

1972
,
'
0x04ad0
'
,
19152

union

all

select

1973
,
'
0x0a4d0
'
,
42192

union

all

select

1974
,
'
0x0d4d4
'
,
54484

union

all

select

1975
,
'
0x0d250
'
,
53840

union

all

select

1976
,
'
0x0d558
'
,
54616

union

all

select

1977
,
'
0x0b540
'
,
46400

union

all

select

1978
,
'
0x0b5a0
'
,
46496

union

all

select

1979
,
'
0x195a6
'
,
103846

union

all

select

1980
,
'
0x095b0
'
,
38320

union

all

select

1981
,
'
0x049b0
'
,
18864

union

all

select

1982
,
'
0x0a974
'
,
43380

union

all

select

1983
,
'
0x0a4b0
'
,
42160

union

all

select

1984
,
'
0x0b27a
'
,
45690

union

all

select

1985
,
'
0x06a50
'
,
27216

union

all

select

1986
,
'
0x06d40
'
,
27968

union

all

select

1987
,
'
0x0af46
'
,
44870

union

all

select

1988
,
'
0x0ab60
'
,
43872

union

all

select

1989
,
'
0x09570
'
,
38256

union

all

select

1990
,
'
0x04af5
'
,
19189

union

all

select

1991
,
'
0x04970
'
,
18800

union

all

select

1992
,
'
0x064b0
'
,
25776

union

all

select

1993
,
'
0x074a3
'
,
29859

union

all

select

1994
,
'
0x0ea50
'
,
59984

union

all

select

1995
,
'
0x06b58
'
,
27480

union

all

select

1996
,
'
0x055c0
'
,
21952

union

all

select

1997
,
'
0x0ab60
'
,
43872

union

all

select

1998
,
'
0x096d5
'
,
38613

union

all

select

1999
,
'
0x092e0
'
,
37600

union

all

select

2000
,
'
0x0c960
'
,
51552

union

all

select

2001
,
'
0x0d954
'
,
55636

union

all

select

2002
,
'
0x0d4a0
'
,
54432

union

all

select

2003
,
'
0x0da50
'
,
55888

union

all

select

2004
,
'
0x07552
'
,
30034

union

all

select

2005
,
'
0x056a0
'
,
22176

union

all

select

2006
,
'
0x0abb7
'
,
43959

union

all

select

2007
,
'
0x025d0
'
,
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

GO

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

--
创建农历日期函数

if

object_id
(
'
fn_GetLunar
'
)
is

not

null

drop

function
fn_GetLunar

go

create

function
dbo.fn_GetLunar(
@solarday

datetime
)

returns

nvarchar
(
30
)

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

@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
'
,
@solarday
)

--
确定农历年开始

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

@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
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

set

@mleap1
=

@mleap

--
传回农历年闰月的天数

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
=
ltrim
(
@offset
)

--
输出日期

set

@chinesenum
=
N
'
〇一二三四五六七八九十
'

while

len
(
@year
)
>
0

select

@outputdate
=
isnull
(
@outputdate
,
''
)

+

substring
(
@chinesenum
,
left
(
@year
,
1
)
+
1
,
1
)

,
@year
=
stuff
(
@year
,
1
,
1
,
''
)

set

@outputdate
=
@outputdate
+
N
'
年
'

+

case

@mleap1

when

@month

then
N
'
润
'

else

''

end

if

cast
(
@month

as

int
)
<
10

set

@outputdate
=
@outputdate

+

case

@month

when

1

then
N
'
正
'

else

substring
(
@chinesenum
,
left
(
@month
,
1
)
+
1
,
1
)

end

else

if

cast
(
@month

as

int
)
>=
10

set

@outputdate
=
@outputdate

+

case

@month

when

'
10
'

then
N
'
十
'

when

11

then
N
'
十一
'

else
N
'
十二
'

end

set

@outputdate
=
@outputdate

+
N
'
月
'

if

cast
(
@day

as

int
)
<
10

set

@outputdate
=
@outputdate

+
N
'
初
'

+

substring
(
@chinesenum
,
left
(
@day
,
1
)
+
1
,
1
)

else

if

@day

between

'
10
'

and

'
19
'

set

@outputdate
=
@outputdate

+

case

@day

when

'
10
'

then
N
'
初十
'

else
N
'
十
'
+

substring
(
@chinesenum
,
right
(
@day
,
1
)
+
1
,
1
)
end

else

if

@day

between

'
20
'

and

'
29
'

set

@outputdate
=
@outputdate

+

case

@day

when

'
20
'

then
N
'
二十
'

else
N
'
廿
'

end

+

case

@day

when

'
20
'

then
N
''

else

substring
(
@chinesenum
,
right
(
@day
,
1
)
+
1
,
1
)
end

else

set

@outputdate
=
@outputdate
+
N
'
三十
'

return

@outputdate

end

GO

select
dbo.fn_GetLunar(
getdate
())
as

[
改编日期(农历)
]
,

getdate
()
as

[
改编日期(公历)
]

/*

改编日期(农历) 改编日期(公历)

------------------ -----------------------

二〇一〇年三月十一 2010-04-24 07:01:17.340

(1 行受影响)

*/

select

convert
(
char
(
10
),
dateadd
(d,
number
,
'
2008-1-1
'
),
23
)
as
公历,

dbo.fn_GetLunar(
dateadd
(d,
number
,
'
2008-1-1
'
))
as
农历

from
master..spt_values

where
type
=
'
p
'

/*

公历农历

---------- ------------------------------

2008-01-01 二〇〇七年十一月廿三

2008-01-02 二〇〇七年十一月廿四

2008-01-03 二〇〇七年十一月廿五

2008-01-04 二〇〇七年十一月廿六

2008-01-05 二〇〇七年十一月廿七

2008-01-06 二〇〇七年十一月廿八

2008-01-07 二〇〇七年十一月廿九

2008-01-08 二〇〇七年十二月初一

2008-01-09 二〇〇七年十二月初二

2008-01-10 二〇〇七年十二月初三

...............

2013-07-31 二〇一三年六月廿四

2013-08-01 二〇一三年六月廿五

2013-08-02 二〇一三年六月廿六

2013-08-03 二〇一三年六月廿七

2013-08-04 二〇一三年六月廿八

2013-08-05 二〇一三年六月廿九

2013-08-06 二〇一三年六月三十

2013-08-07 二〇一三年七月初一

2013-08-08 二〇一三年七月初二

2013-08-09 二〇一三年七月初三

(2048 行受影响)

*/

--
2048行记录：6秒

http://blog.csdn.net/htl258/archive/2010/04/24/5523183.aspx

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航