한국 델파이 개발자 모임 - 음력생년월일을 가지고 현재의 양력년월일을 구할 수 있나요?

음력생년월일을 가지고 현재의 양력년월일을 구할 수 있나요?

안녕하세요.

일반적으로 그냥 음력년월일을 가지고,
양력년월일을 구하는 방법은 있는데...

본인의 음력생년월일을 가지고,
올해 몇월몇일인지를 아는방법 좀 부탁드립니다.

그럼 좋은 하루되십시요...

이 게시물을

1 COMMENTS

조규춘 • 2002.01.19 00:43

질문하신거에 대해서 팁을 찾아 보셨도 될텐데요..

대신 올립니다.

unit SolarLunar;

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 =
( 'GAP', 'EUL', 'BYEONG', 'JEONG', 'MOO',
'GEE', 'GYEONG', 'SIN', 'EEM', 'GYE' );
YukGabEarth : array[1..12] of string =
( 'JAH', 'CHOOK', 'EEN', 'MYO', 'JIN', 'SAH',
'OH', 'MEE', 'SIN', 'YOU', 'SUL', 'HAE' );
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.
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이경문
- •
- 2002.01.19 09:06
- 2 COMMENTS
- /
- 0 LIKES
DLL_THREAD_ATTACH, DLL_THREAD_DETACH의 수행이 OS마다 다르다?
- minders
  
  •
  
  2012.12.11 00:05
  
  DllMain 안에서는 CriticalSection 을 사용하면 안됩니다. 락걸립니다.DLL 이라는게 서로서로 PE (DLL들 같...
- minders
  
  •
  
  2012.12.11 00:06
  
  DisableThreadLibrarys던가.. 뭐 이런 함수가 있는데.. 이 놈을 써서 재로딩을방지하심이 좋을듯 하군요..
- 이근윤
- •
- 2002.01.19 08:33
- 1 COMMENTS
- /
- 0 LIKES
리포트 작성시..
- 머슴
  
  •
  
  2002.01.19 19:16
  
  저는 레지스트리에 좌여백과 위여백의 셋팅값을 가지고 출력하는 것이 &nb...
- 나원용
- •
- 2002.01.19 07:41
- 1 COMMENTS
- /
- 0 LIKES
panel 위의 콤포넌트 선택시에...
- 씨나락
  
  •
  
  2002.01.19 07:53
  
  Panel위에 컴포넌트의 onClick이벤트에 Panel1Click(nil); //판넬의 클릭이벤트입니다. 를 ...
- 나원용
- •
- 2002.01.19 07:41
- 1 COMMENTS
- /
- 0 LIKES
dbnavigator의 그림을 바꾸고 싶은데..
- 돌멩이
  
  •
  
  2002.01.19 09:39
  
  상용콤포 중에 인포파워가 있습니다.글구 디블로퍼 익스프레스등.. 프리는 토리에서 찾아보시면 될듯 하...
- 커피향기..
- •
- 2002.01.19 05:39
- 2 COMMENTS
- /
- 0 LIKES
QuickReport 질문입니다.
- 장용호
  
  •
  
  2002.01.19 23:16
  
  안녕하세요 이렇게 하면 되지않을까요 일단 테이블을 조인해서 select 지점 테이블.날짜, ...
- 커피향기..
  
  •
  
  2002.01.21 04:11
  
  감사합니다. 님덕에 해결했네여^^*
- 이병철
- 2002.01.19 05:19
- 0 COMMENTS
- /
- 0 LIKES
윈도2000서버에 인터베이스 연결
- 주원진
- 2002.01.19 05:19
- 0 COMMENTS
- /
- 0 LIKES
ContextMenu호출하는부분에 대해 도움좀..
- 정동일
- 2002.01.19 04:46
- 0 COMMENTS
- /
- 0 LIKES
도스 모드로 실행한 프로그램에 키 값 보내는 방법
- 이승근
- •
- 2002.01.19 03:47
- 2 COMMENTS
- /
- 0 LIKES
locate재질문....
- 버섯
  
  •
  
  2002.01.19 18:58
  
  죄송해서 어쩌죠... 제가 해보니까 안되네요...헉.. 다른방법을 써봅시다.. var sqltxt : string; &...
- 씨나락
  
  •
  
  2002.01.19 08:11
  
  edit2로 입력받아서 KeyPress에서 엔터를 치면 검색하게 하는 방법입니다. 도움이 되었는지 모르겠네요. ...
- 최선용
- 2002.01.19 02:57
- 0 COMMENTS
- /
- 0 LIKES
sql-서버에 관해서...고수님들 부탁합니다....(암껏도 몰라서)
- 무량
- 2002.01.19 02:55
- 0 COMMENTS
- /
- 0 LIKES
Async Pro써보신분?
- 김상현
- 2002.01.19 02:31
- 0 COMMENTS
- /
- 0 LIKES
QuickReport에서여...
- 울트라맨
- •
- 2002.01.19 02:13
- 1 COMMENTS
- /
- 0 LIKES
하루단위 또는 한주 단위로 파일을 자동으로 생성되게 하는 방법좀...
- 천상천하
  
  •
  
  2002.01.19 02:53
  
  간단하게 짜봤습니다. 참고하세요... 날짜 체크하는 이벤트에 첨부하면 되겠네요... 즐코하세요... p...
- 김형달
- •
- 2002.01.19 01:31
- 2 COMMENTS
- /
- 0 LIKES
uuid생성하기
- 최용일
  
  •
  
  2002.01.19 03:47
  
  안녕하세요. 최용일입니다. Tools/Editor Options메뉴에서 Key Mapping Modules를 Visual Studio emulat...
- 김형달
  
  •
  
  2002.01.19 04:43
- 오승섭
- •
- 2002.01.19 00:30
- 1 COMMENTS
- /
- 0 LIKES
음력생년월일을 가지고 현재의 양력년월일을 구할 수 있나요?

안녕하세요. 일반적으로 그냥 음력년월일을 가지고, 양력년월일을 구하는 방법은 있는데... 본인의 음력생년월일을 가지고, 올해 몇월몇일인지를 아는방법 좀 부탁드립니다. 그럼 좋은 하루되십시요...
- 조규춘
  
  •
  
  2002.01.19 00:43
  
  질문하신거에 대해서 팁을 찾아 보셨도 될텐데요.. 대신 올립니다. unit SolarLunar; inte...
- 다롱이
- 2002.01.18 23:33
- 0 COMMENTS
- /
- 0 LIKES
Class를 이용한 플그램이 잘안되네요 소스 분석좀 부탁
- GanJang
- •
- 2002.01.18 22:37
- 1 COMMENTS
- /
- 0 LIKES
ListView 랑 비슷한 자료형 있을까요?
- GanJang
  
  •
  
  2002.01.18 23:57
  
  오호라 ^^ TListItem 이런게 있었네요 ^^ 사용법을 알아봐야겠네영 ^^ 수고하세여~
- 흐르는강물
- 2002.01.18 22:11
- 0 COMMENTS
- /
- 0 LIKES
확장한자 사용하는 방법 부탁드립니다.
- 이근윤
- •
- 2002.01.18 22:05
- 1 COMMENTS
- /
- 0 LIKES
A->B 프로그램으로 자료전송
- 한만교
  
  •
  
  2002.01.19 01:45
  
  첨부한 파일은 예제와 프로세서간 통신을 할수있는 VCL입니다.. 예전에 델파이로 프로그램을하다가 프...
- 강성호
- •
- 2002.01.18 21:13
- 2 COMMENTS
- /
- 0 LIKES
showmodal 로 띠운 폼에서 디비그리드를 클릭시 이상한 현상
- 성더기
  
  •
  
  2002.01.18 23:38
  
  죽읽어보니깐.. form1과 form2는 같은 프로젝트에 있는 폼인거 같은데여 button1click안에 var &nb...
- 강성호
  
  •
  
  2002.01.19 01:13
  
  님이 말하시는것은 form2라는 전역변수를 바로 이용하는것이고요... 전 다시 선언 해서 사용하는것이고.....

오승섭
2002/01/19 00:30
Views404

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1158 1159 1160 1161 1162 1163 1164 1165 1166 1167

Last Page→