양력 <-> 음력 변환 소스입니다.
일단 main 유닛의 use에 Sol_lun를 추가합니다.
소스는 Sol_lun.pas라는 화일로 저장해 주세요.
[사용예 : 주유닛]
uses Sol_lun;
procedure STL;
var Y,M,D : Word;
begin
//양력을 음력으로 전환
Solar_To_Lunar(1998, 5, 29, Y,M,D );
// 1998년 5월 29일을 Y,M,D에 음력으로 변환 하여 줍니다.
end;
[소스]
unit Sol_lun;
interface
Procedure Solar_To_Lunar(Year,Month,Day:Word; Var LYear,LMonth,LDay : Word);
Procedure Lunar_To_Solar(LunarYear,LunarMonth,LunarDay : Word;
Var SolarYear,SolarMonth,SolarDay : Word);
implementation
Procedure Solar_To_Lunar(Year,Month,Day:Word; Var LYear,LMonth,LDay: Word);
Const kk : array [0..162,0..12] of 0..4 = (
{*1881*} ( 1, 2, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2, 1 ) ,
( 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 2, 1, 1, 2, 1, 3, 2, 1, 2, 2, 1, 2, 2 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2 ) ,
{*1891*} ( 1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 3, 2, 2, 1, 2, 2, 2 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1 ) ,
( 2, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 3, 2, 2, 1, 2, 1, 2, 1, 2, 1 ) ,
( 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2 ) ,
{*1901*} ( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0 ) ,
( 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
{*1911*} ( 2, 1, 2, 1, 1, 2, 3, 1, 2, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 2, 3, 1, 2, 1, 2, 1, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 3, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2 ) ,
( 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0 ) ,
{*1921*} ( 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 2 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 0 ) ,
( 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0 ) ,
( 2, 1, 2, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2 ) ,
( 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 1 ) ,
{*1931*} ( 2, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 4, 1, 2, 1, 2, 1, 1, 2 ) ,
( 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 2, 1, 1, 2, 1, 1, 4, 1, 2, 2, 1, 2 ) ,
( 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
{*1941*} ( 2, 2, 1, 2, 2, 1, 4, 1, 1, 2, 1, 2, 1 ) ,
( 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 4, 1, 2, 1, 2, 2, 1, 2, 2 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 3, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
{*1951*} ( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 4, 2, 1, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 2, 1, 1, 4, 1, 1, 2, 1, 2, 1, 2, 2, 2 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2 ) ,
( 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1 ) ,
{*1961*} ( 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0 ) ,
( 2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 2, 2, 1 ) ,
( 2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
{*1971*} ( 1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 0 ) ,
( 2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 1, 2 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 0 ) ,
( 2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 2, 4, 1, 2, 2, 1, 2, 1 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
{*1981*} ( 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 3, 2, 2 ) ,
( 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0 ) ,
( 2, 1, 2, 2, 1, 2, 3, 2, 2, 1, 2, 1, 2 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 1, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 2, 2 ) ,
{*1991*} ( 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0 ) ,
( 1, 2, 2, 3, 2, 1, 2, 1, 1, 2, 1, 2, 1 ) ,
( 2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 2, 1, 2, 2, 1, 2, 3, 2, 1, 1, 2 ) ,
( 1, 2, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 1, 2, 1, 3, 2, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 0 ) ,
{*2001*} ( 2, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 1, 2 ) ,
( 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 1, 2, 3, 2, 2, 1, 2, 1, 2, 2, 1, 1, 2 ) ,
( 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 1, 2, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0 ) ,
( 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 2 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
{*2011*} ( 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 4, 2, 1, 2, 1, 1, 2, 1, 2, 1 ) ,
( 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 1, 2, 1, 2, 1, 2, 2, 3, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 0 ) ,
( 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0 ) ,
( 2, 1, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0 ) ,
( 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0 ) ,
( 2, 1, 2, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2 ) ,
{*2021*} ( 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
( 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 0 ) ,
( 1, 2, 3, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1 ) ,
( 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0 ) ,
( 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 0 ) ,
( 1, 2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1 ) ,
( 2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 0 ) ,
( 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 0 ) ,
{*2031*} ( 2, 1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1 ) ,
( 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0 ) ,
( 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 2, 2 ) ,
( 2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0 ) ,
( 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 0 ) ,
( 2, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1, 1 ) ,
( 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0 ) ,
{*2041*} ( 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0 ) ,
( 1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2 ) ,
( 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0 ) );
Var
m : Array [0..11] of Integer;
dt : Array [0..162] of Integer;
m1, m2, i, j, jcount : Integer;
td, td0, td1, td2, k11 : LongInt;
leap : Boolean;
Begin
m[0] := 31; m[1] := 0; m[2] := 31; m[3] := 30;
m[4] := 31; m[5] := 30; m[6] := 31; m[7] := 31;
m[8] := 30; m[9] := 31; m[10] := 30; m[11] := 31;
for i:=0 To 162 Do Begin
dt[i] := 0;
for j:=0 To 11 Do Begin
Case (kk[i][j]) of
1 , 3 : dt[i] := dt[i] + 29;
2 , 4 : dt[i] := dt[i] + 30;
End;
End;
Case (kk[i][12]) of
1 , 3 : dt[i] := dt[i] + 29;
2 , 4 : dt[i] := dt[i] + 30;
End;
End;
{* 1. 1. 1. - 1910. 2. 10. *}
td1 := 1880*365 + (1880 Div 4)- (1880 Div 100) + (1880 Div 400) + 30;
{* ## 1. 1. 1. - Year. Month. Day. ## *} k11 := (Year-1);
td2 := k11*365 + (k11 Div 4) - (k11 Div 100) + (k11 Div 400);
leap := ((Year mod 400) = 0) Or ((Year mod 100) <> 0) And ((Year mod 4) = 0);
if leap then m[1] := 29
else m[1] := 28;
for i:=0 To Month-2 Do td2 := td2 + m[i];
td2 := td2 + Day;
{* ## 1881. 1. 30. - Year. Month. Day. ## *}
td := td2 - td1 + 1;
{* ## Lunar Year Caculation ## *}
td0 := dt[0];
for i:=0 To 162 Do Begin
if( td <= td0 ) then break;
td0 := td0 + dt[i+1];
End;
LYear := i + 1881;
td0 := td0 - dt[i];
td := td - td0;
if(kk[i][12] <> 0) then jcount := 13
else jcount := 12;
m2 := 0;
for j:=0 To jcount-1 Do Begin
if( kk[i][j] <=2 ) then m2 := m2 + 1;
if( kk[i][j] <=2 ) then m1 := kk[i][j] + 28
else m1 := kk[i][j] + 26;
if( td <= m1 ) then break;
td := td - m1;
End;
LMonth := m2;
LDay := td;
End;
Procedure Lunar_To_Solar(LunarYear,LunarMonth,LunarDay : Word;
Var SolarYear,SolarMonth,SolarDay : Word); Const
kk : array [1..163,1..13] of 0..4 = (
{*1881*} (1, 2, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2, 1),
(1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(2, 1, 1, 2, 1, 3, 2, 1, 2, 2, 1, 2, 2),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2),
{*1891*} (1, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 3, 2, 2, 1, 2, 2, 2),
(1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1),
(2, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 3, 2, 2, 1, 2, 1, 2, 1, 2, 1),
(2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 2, 3, 2, 2, 1, 2),
{*1901*} (1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0),
(2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 2),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0),
(1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
{*1911*} (2, 1, 2, 1, 1, 2, 3, 1, 2, 2, 1, 2, 2),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 2, 3, 1, 2, 1, 2, 1, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 3, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2),
(1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0),
{*1921*} (2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 2),
(1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 0),
(2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0),
(2, 1, 2, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2, 2, 2),
(1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 1),
{*1931*} (2, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 4, 1, 2, 1, 2, 1, 1, 2),
(1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 0),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 2, 2, 1),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 2, 1, 1, 2, 1, 1, 4, 1, 2, 2, 1, 2),
(2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
{*1941*} (2, 2, 1, 2, 2, 1, 4, 1, 1, 2, 1, 2, 1),
(2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 0),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 1, 2, 1, 4, 1, 2, 1, 2, 2, 1, 2, 2),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0),
(2, 2, 3, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 3, 2, 1, 2, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
{*1951*} (2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 2, 1, 4, 2, 1, 2, 1, 2, 1, 2),
(1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(2, 1, 1, 4, 1, 1, 2, 1, 2, 1, 2, 2, 2),
(1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2),
(1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1),
{*1961*} (2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2, 1),
(2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 0),
(2, 2, 2, 3, 2, 1, 1, 2, 1, 1, 2, 2, 1),
(2, 2, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0),
{*1971*} (1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 1, 0),
(2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1, 2),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 2, 3, 2, 1, 1, 2),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 0),
(2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 1, 2, 1, 2, 4, 1, 2, 2, 1, 2, 1),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
{*1981*} (1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 3, 2, 1, 1, 2, 2, 1, 2, 2),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 3, 2, 2),
(1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 0),
(2, 1, 2, 2, 1, 2, 3, 2, 2, 1, 2, 1, 2),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(1, 2, 1, 1, 2, 3, 1, 2, 1, 2, 2, 2, 2),
{*1991*} (1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 0),
(1, 2, 2, 3, 2, 1, 2, 1, 1, 2, 1, 2, 1),
(2, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 2, 1, 2, 2, 1, 2, 3, 2, 1, 1, 2),
(1, 2, 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, 0),
(1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 1, 2, 1, 3, 2, 2, 1, 2, 2, 2, 1),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 0),
{*2001*} (2, 2, 2, 1, 3, 2, 1, 1, 2, 1, 2, 1, 2),
(2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 0),
(1, 2, 3, 2, 2, 1, 2, 1, 2, 2, 1, 1, 2),
(1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 1, 2, 1, 2, 1, 2, 3, 2, 2, 1, 2, 2),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 0),
(2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 0),
(2, 2, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 2),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
{*2011*} (2, 1, 2, 2, 1, 2, 1, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 4, 2, 1, 2, 1, 1, 2, 1, 2, 1),
(2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 1, 2, 1, 2, 1, 2, 2, 3, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, 0),
(1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 0),
(2, 1, 1, 2, 1, 3, 2, 1, 2, 1, 2, 2, 2),
(1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 0),
(2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 0),
(2, 1, 2, 2, 3, 2, 1, 1, 2, 1, 2, 1, 2),
{*2021*} (1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 0),
(2, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 0),
(1, 2, 3, 2, 1, 2, 1, 2, 2, 1, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 3, 2, 1, 2, 2, 2, 1),
(2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 0),
(1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 2, 0),
(1, 2, 2, 1, 2, 3, 1, 2, 1, 1, 2, 2, 1),
(2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 2, 2, 0),
(1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 0),
{*2031*} (2, 1, 2, 3, 2, 1, 2, 2, 1, 2, 1, 2, 1),
(2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 2, 1, 1, 2, 1, 2, 3, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 0),
(2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 1, 4, 1, 1, 2, 1, 2, 2),
(2, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 0),
(2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 2, 1, 0),
(2, 2, 1, 2, 2, 3, 2, 1, 2, 1, 2, 1, 1),
(2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 1, 0),
{*2041*} (2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 2, 0),
(1, 2, 3, 1, 2, 1, 2, 1, 2, 2, 2, 1, 2),
(1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 0) );
YukGabHeaven : array[1..10] of string =
( '갑','을','병','정','무','기','경','신','임','계');
YukGabEarth : array[1..12] of string =
( '자','축','인','묘','진','사','오','미','신','유','술','해' );
SizeOfMonth : array[1..12] of Integer =
( 31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
Weekday : array[1..7] of string =
('SUN','MON','TUE','WED','THU','FRI','SAT'); Var
LunarLeap : Integer;
m1, m2, n2 : Integer;
i, j, k1, k2, k : Integer;
leap : Boolean;
DayTotal : LongInt;
begin
m1 := 0;
DayTotal := 0;
If LunarYear <> 1881 Then Begin
m1 := LunarYear - 1882 + 1;
For i := 1 To m1 Do Begin
For j := 1 To 13 Do DayTotal := DayTotal + kk[i][j];
If kk[i][13] = 0 Then DayTotal := DayTotal + 336
Else DayTotal := DayTotal + 362
end;
end;
m1 := m1 + 1;
n2 := LunarMonth;
m2 := 0;
While True Do Begin
m2 := m2 + 1;
If kk[m1][m2] > 2 Then begin
DayTotal := DayTotal + 26 + kk[m1][m2];
n2 := n2 + 1;
End
else If m2 = n2 Then break
else DayTotal := DayTotal + 28 + kk[m1][m2]
End;
DayTotal := DayTotal + LunarDay + 29;
m1 := 1880;
While True Do Begin
m1 := m1 + 1;
leap := ((m1 mod 400) = 0) Or ((m1 mod 100) <> 0) And ((m1 mod 4) = 0);
If leap Then m2 := 366
Else m2 := 365;
If DayTotal <= m2 Then break;
DayTotal := DayTotal - m2;
End;
SolarYear := m1;
SizeOfMonth[2] := m2 - 337;
m1 := 0;
While True Do Begin
m1 := m1 + 1;
If DayTotal <= SizeOfMonth[m1] Then break;
DayTotal := DayTotal - SizeOfMonth[m1];
End;
SolarMonth := m1;
SolarDay := DayTotal;
end;
end.