한국 델파이 개발자 모임 - (질문) 혹시 양력<->음력 변환 Logic...?

(질문) 혹시 양력<->음력 변환 Logic...?

갑자기 필요해서 그러는데....

혹시 누가 좀 도와주실래요...?

양력과 음력을 상호 변환할 수 있는 Logic이나 component 가지고 계신분...?

도와 주세요....

이 게시물을

1 COMMENTS

이정욱 • 1999.02.02 09:44

음.. 여기 있습니다.

잘 사용하시구요...

자주 들러서 답변도 해주세요.

서로 돕구 살아야죠.

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.

김성중 wrote:

> 갑자기 필요해서 그러는데....

>

> 혹시 누가 좀 도와주실래요...?

>

> 양력과 음력을 상호 변환할 수 있는 Logic이나 component 가지고 계신분...?

>

> 도와 주세요....
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 조준형
- •
- 1999.02.11 23:40
- 1 COMMENTS
- /
- 0 LIKES
DCOM문제인것 같은데...... 3-tier 이 안되요
- 신인재
  
  •
  
  1999.02.12 04:00
  
  음.....영창 가시면 안되는데....쩝... DCOM이라...요넘이 환경설정에 참 민감한 넘 이더라구요... ...
- 구민오
- •
- 1999.02.11 03:54
- 1 COMMENTS
- /
- 0 LIKES
한글윈도우인지 영문윈도우인지 판단하는...
- 안치봉
  
  •
  
  1999.02.11 06:15
  
  구민오 wrote: > 한글 윈도우인지... 영문 윈도우인지 판단하려면 어떻게 해야하나요??? > 레지스트리에 ...
- 손창근
- •
- 1999.02.10 22:35
- 1 COMMENTS
- /
- 0 LIKES
이미지가 티안나게...
- 안치봉
  
  •
  
  1999.02.11 05:56
  
  손창근 wrote: > 안녕하세요.. 오공이 입니다. > 내공이 약하다 보니 자주 질문을 하게 되네요... > >...
- 강영구
- •
- 1999.02.10 19:32
- 1 COMMENTS
- /
- 0 LIKES
[문의]좀더..세심한 사항
- 신재민
  
  •
  
  1999.02.10 21:53
  
  저희 나이렉스는 서초동에 있습니다. 전화는 521-7900 입니다. 강영구 wrote: > 델파이에 관해서 찾다...
- 구민오
- •
- 1999.02.10 11:23
- 1 COMMENTS
- /
- 0 LIKES
폼에 그라이데이션효과를 주려면???
- 안치봉
  
  •
  
  1999.02.10 19:03
  
  구민오 wrote: > 폼에 그라이데이션효과를 주려면 어떻게 해야하나요??? > procedure TForm1.FormPai...
- 홍지선
- •
- 1999.02.09 19:34
- 1 COMMENTS
- /
- 0 LIKES
입력시 오른쪽부터 입력하게...
- 안치봉
  
  •
  
  1999.02.10 19:41
  
  홍지선 wrote: > TextGrid 에서 입력을 할때 > 숫자의 경우 오른쪽으로 정렬하고 입력할때도 오른쪽부터 ...
- 안경훈
- 1999.02.09 02:19
- 0 COMMENTS
- /
- 0 LIKES
[아래질문에 대해서] 사용하는 OS는 win98입니다.
- 안경훈
- •
- 1999.02.09 00:38
- 1 COMMENTS
- /
- 0 LIKES
델파이와 익스플로어 충돌
- 이정욱
  
  •
  
  1999.02.09 01:44
  
  현재 사용하시는 델파이 버전은 무엇인지요? OS는 98인가요? 안경훈 wrote: > 델파이가 한번 컴파일하...
- 구민오
- •
- 1999.02.07 05:03
- 1 COMMENTS
- /
- 0 LIKES
윈 소켓을 후킹하는 방법은???
- 송재훈
  
  •
  
  1999.02.11 04:07
  
  구민오 wrote: > winsocket을 후킹을 하고 싶거든요... > 이걸 후킹을 하려면 어떻게 해야 하는지 정말 ...
- 김명환
- •
- 1999.02.06 10:34
- 1 COMMENTS
- /
- 0 LIKES
TResizeComponent컴포넌트를 사용하여 보고...
- 이정욱
  
  •
  
  1999.02.08 05:38
  
  저희회사에서 취급하는 모든 컴포넌트에 대한 지원은 지금도 계속 되고 있습니다. 항상 http://www.nilex...
- 김경호
- 1999.02.06 01:14
- 0 COMMENTS
- /
- 0 LIKES
QuickReport 서로다른 양식을 미리보기로..
- 김재억
- •
- 1999.02.05 20:33
- 1 COMMENTS
- /
- 0 LIKES
[요청] POD에 있던 TracePixel소스좀...
- 이정욱
  
  •
  
  1999.02.08 06:04
  
  E-Mail을 확인해 보세요. 김재억 wrote: > 안녕하세요? 김 재억입니다. > 제가 다니는 회사는 POD정기...
- 강영구
- •
- 1999.02.05 19:29
- 1 COMMENTS
- /
- 0 LIKES
스케너..구동
- 이정욱
  
  •
  
  1999.02.08 06:01
  
  사용하시는 스케너의 Twain드라이버가 직접 아래작업들을 코맨드로 지원하지 않는다면 직접 스케너를 제어...
- 구민오
- •
- 1999.02.05 11:02
- 2 COMMENTS
- /
- 0 LIKES
URL이 전달 될때 발생하는 메세지는???
- 이정욱
  
  •
  
  1999.02.06 09:54
  
  인터넷 프로그래밍을 하시면서 유해정보차단장치를 만드신다고 하셨는데 그것을 통제하는 방법은 있습니다....
- 이정욱
  
  •
  
  1999.02.06 01:57
  
  메세지가 발생하면서 전달이 되지는 않을것 같다는것이 제 의견입니다. 그냥 IE는 ActiveX콘트롤로써 그부...
- 구민오
- 1999.02.05 07:48
- 0 COMMENTS
- /
- 0 LIKES
후킹으로 인터넷 익스플로러를 제어 하려면???
- 윤
- •
- 1999.02.05 04:14
- 1 COMMENTS
- /
- 0 LIKES
델파이 리포트 전용 tool이 있는지요?
- 이정욱
  
  •
  
  1999.02.05 06:58
  
  크리스탈 리포트(따로구입)는 물론 퀵리포트(델파이기본), 하이퍼 리포트, HTML리포트 등등 수도없이 많습...
- 구민오
- •
- 1999.02.03 03:49
- 1 COMMENTS
- /
- 0 LIKES
여러 검색어로 텍스트를 검색하려면???
- 이정욱
  
  •
  
  1999.02.03 21:59
  
  검색을 하시는 루틴에서(물론 POS함수로 하시죠?) 두개의 검색문을 넣으시면 됩니다. 예를들어.. 그냥.....
- 박민주
- •
- 1999.02.02 19:08
- 1 COMMENTS
- /
- 0 LIKES
메모리 직접 제어..
- 이정욱
  
  •
  
  1999.02.03 21:47
  
  파워러브 델파이 97년 7월(5호)에 보시면 0.001초에 도전하자라는 것이 있습니다. 조금이나마 그것이 도움...
- 김성중
- •
- 1999.02.02 04:02
- 1 COMMENTS
- /
- 0 LIKES
(질문) 혹시 양력<->음력 변환 Logic...?

갑자기 필요해서 그러는데.... 혹시 누가 좀 도와주실래요...? 양력과 음력을 상호 변환할 수 있는 Logic이나 component 가지고 계신분...? 도와 주세요....
- 이정욱
  
  •
  
  1999.02.02 09:44
  
  음.. 여기 있습니다. 잘 사용하시구요... 자주 들러서 답변도 해주세요. 서로 돕구 살아야죠. unit S...
- 한
- •
- 1999.01.29 23:57
- 3 COMMENTS
- /
- 0 LIKES
메모나 RichEdit에 배경 그림넣기.
- 신인재
  
  •
  
  1999.01.30 02:41
  
  한 wrote: > 안녕하세요. > 또 들렸네요. 사람들이 아직 잘 모르는지 안오는건 같지만 > 그래도 저는 ...
- 한
  
  •
  
  1999.01.30 23:31
  
  신인재 wrote: 어쨌든 감사....*^^* 어떻게 해야 된다는 방향을 잡았으니까요....히힛! 눈이 많아...
- 이정욱
  
  •
  
  1999.01.31 08:17
  
  또 한가지 방법이 있다면 리치 에디트에 OLE를 사용해서 그림을 넣을 수가 있습니다. 이미 그러한 컴포넌...

김성중
1999/02/02 04:02
Views187

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1420 1421 1422 1423 1424 1425 1426 1427 1428 1429

Last Page→