Q&A

  • (질문) 혹시 양력<->음력 변환 Logic...?
갑자기 필요해서 그러는데....



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



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



도와 주세요....

이 게시물을
1  COMMENTS
  • Profile
    이정욱 • 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 가지고 계신분...?

    >

    > 도와 주세요....
  • [아래질문에 대해서] 사용하는 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...
  • 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 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.01.29 22:13
    • 1 COMMENTS
    • /
    • 0 LIKES
    시리얼 통신..
    • 이정욱
      •
      1999.01.31 08:20
      굳이 간단한 시리얼 통신을 하신다면 상용을 쓰실 필요는 없지만 ASync라는 무지 좋은 상용 컴포넌트가 있...
    • 강신구
    • •
    • 1999.01.29 05:54
    • 1 COMMENTS
    • /
    • 0 LIKES
    richedit에서 색깔지정?
    • 신인재
      •
      1999.01.29 19:35
      강신구 wrote: > 안녕하세요.. > > richedit1.lines.add(str)시 색깔을 지정해 주고 싶은데 어떻게 > ...
    • 한
    • •
    • 1999.01.26 23:11
    • 1 COMMENTS
    • /
    • 0 LIKES
    두개의 스크롤을 동시에 작동하게....
    • 신인재
      •
      1999.01.27 01:34
      한 wrote: > 모두들 수고하시네요... > 어려운 시기에 모든일 잘되시기를 먼저 기원합니다. 저도 잘되고...
    • 이창식
    • •
    • 1999.01.25 18:54
    • 1 COMMENTS
    • /
    • 0 LIKES
    삐삐 호출에 대한 소스를 얻을 수 있을 런지요...
    • 이정욱
      •
      1999.01.25 21:35
      여기를 눌러보세요. 그러면 삐삐호출에 대한 소스를 얻으실 수 있을것입니다. 이창식 wrote: > 안녕...
    • 구민오
    • •
    • 1999.01.25 05:20
    • 1 COMMENTS
    • /
    • 0 LIKES
    데이터 베이스에서...
    • 신인재
      •
      1999.01.27 23:18
      구민오 wrote: > 데이터 베이스를 배우는 초보입니다... *^^* > 데이터 베이스를 만들때요... database d...
    • 노유승
    • •
    • 1999.01.21 03:23
    • 2 COMMENTS
    • /
    • 0 LIKES
    CCTV 카메라의 화면을 .....
    • 이정욱
      •
      1999.01.21 04:17
      안녕하세요? 정확한 답변이 될른지는 모르겠지만 먼저 CCTV에서 컴퓨터로 연결되기 위한것이 무엇이냐에 ...
    • 신재민
      •
      1999.01.21 04:17
      TV케이블로 데이타가 들어오니.. TV수신카드를 통해 데이타를 보는것은 어떨까요.. TV수신카드는 드라...
←First Page
1299 1300 1301 1302 1303 1304 1305 1306 1307 1308
Last Page→
한델 로그인 하기