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 가지고 계신분...?

    >

    > 도와 주세요....
    • 구민오
    • •
    • 1999.02.05 11:02
    • 4 COMMENTS
    • /
    • 0 LIKES
    URL이 전달 될때 발생하는 메세지는???
    • 세림
      •
      1999.06.07 19:28
      간단한 웹서버 응용을 테스트하고 있는데 처음에는 익스플러어에서 실행되더니 다음부터는 연결 프로그...
    • 이정욱
      •
      1999.02.06 09:54
      인터넷 프로그래밍을 하시면서 유해정보차단장치를 만드신다고 하셨는데 그것을 통제하는 방법은 있습니다....
    • 안치봉
      •
      1999.06.08 00:35
      세림 께서 말씀하시기를... > 간단한 웹서버 응용을 테스트하고 있는데 > 처음에는 익스플러어에서 실행...
    • 이정욱
      •
      1999.02.06 01:57
      메세지가 발생하면서 전달이 되지는 않을것 같다는것이 제 의견입니다. 그냥 IE는 ActiveX콘트롤로써 그부...
    • 성관
    • •
    • 1999.06.07 19:04
    • 2 COMMENTS
    • /
    • 0 LIKES
    indexname에 대해
    • 김경호
      •
      1999.02.06 01:14
      안녕하세요. A양식과 B양식을 하나로 합쳐서 미리보기 기능으로 만들려고 합니다. A양식은 1페이지에 B양...
    • 델사랑
      •
      1999.06.07 19:45
      성관 께서 말씀하시기를... > 안녕하세요.. > 날씨가 무척이나 무덥지요,,,,, > 무더운 여름을 잘 보내...
    • 김재억
    • •
    • 1999.02.05 20:33
    • 1 COMMENTS
    • /
    • 0 LIKES
    [요청] POD에 있던 TracePixel소스좀...
    • 이정욱
      •
      1999.02.08 06:04
      E-Mail을 확인해 보세요. 김재억 wrote: > 안녕하세요? 김 재억입니다. > 제가 다니는 회사는 POD정기...
    • 조진희
    • •
    • 1999.06.07 18:51
    • 2 COMMENTS
    • /
    • 0 LIKES
    DBgrid에서 선택된 데이타 입력폼에 표시되도록
    • 박성훈
      •
      1999.06.11 02:15
      조진희 께서 말씀하시기를... > 안녕들 하셨어요.. > 저희가 입력된 데이타 수정작업을 하려던 중에 dggr...
    • 초보
      •
      1999.06.12 20:25
      박성훈 께서 말씀하시기를... > dbgrid를 선택하신 곳이 현재 레코드의 위치가 됩니다. 그러니까 사원테...
    • 강영구
    • •
    • 1999.02.05 19:29
    • 1 COMMENTS
    • /
    • 0 LIKES
    스케너..구동
    • 이정욱
      •
      1999.02.08 06:01
      사용하시는 스케너의 Twain드라이버가 직접 아래작업들을 코맨드로 지원하지 않는다면 직접 스케너를 제어...
    • 정성호
    • •
    • 1999.06.07 18:47
    • 1 COMMENTS
    • /
    • 0 LIKES
    꾸벅.. nil 이라는 예약어의 용도는 어케되나요..???^^
    • 전철호
      •
      1999.06.07 20:01
      정성호 께서 말씀하시기를... > 안녕하세요.. 많은 도움을 받고 있는 신삥입니당... > 쩝 전 도와드릴 일...
    • 구민오
    • •
    • 1999.02.05 11:02
    • 3 COMMENTS
    • /
    • 0 LIKES
    URL이 전달 될때 발생하는 메세지는???
    • 김재휘
      •
      1999.06.07 17:39
      DBGrid를 이용해서 테이블내에 레코드를 삽입하려하고 했습니다. 간단하다고 생각했죠.. Table1.Insert; ...
    • 이정욱
      •
      1999.02.06 09:54
      인터넷 프로그래밍을 하시면서 유해정보차단장치를 만드신다고 하셨는데 그것을 통제하는 방법은 있습니다....
    • 이정욱
      •
      1999.02.06 01:57
      메세지가 발생하면서 전달이 되지는 않을것 같다는것이 제 의견입니다. 그냥 IE는 ActiveX콘트롤로써 그부...
  • DataModule과 DLL 질문, 예제소스부탁..
  • 후킹으로 인터넷 익스플로러를 제어 하려면???
    • Hans
    • 1999.06.07 12:51
    • 0 COMMENTS
    • /
    • 0 LIKES
    serial 통신 예제
    • 윤
    • •
    • 1999.02.05 04:14
    • 1 COMMENTS
    • /
    • 0 LIKES
    델파이 리포트 전용 tool이 있는지요?
    • 이정욱
      •
      1999.02.05 06:58
      크리스탈 리포트(따로구입)는 물론 퀵리포트(델파이기본), 하이퍼 리포트, HTML리포트 등등 수도없이 많습...
  • pardox graphic field
    • 윤
    • •
    • 1999.02.05 04:14
    • 2 COMMENTS
    • /
    • 0 LIKES
    델파이 리포트 전용 tool이 있는지요?
    • 이영호
      •
      1999.06.06 11:58
      인스톨 쉘드에서 여러개의 setup 화일들을 하나의 화일로 만들어서 실행시 자동인스톨이 되게 하려고 합...
    • 이정욱
      •
      1999.02.05 06:58
      크리스탈 리포트(따로구입)는 물론 퀵리포트(델파이기본), 하이퍼 리포트, HTML리포트 등등 수도없이 많습...
    • 김영남
    • •
    • 1999.06.06 02:01
    • 4 COMMENTS
    • /
    • 0 LIKES
    html 콤포넌트를 써써 프로그램을 만들었는데...
    • 구민오
      •
      1999.02.03 03:49
      텍스트 박스나 리치 텍스트 박스에 나타난 글 내용중에서 여러 검색어를 가지고 그 여러 검색어 중 하나라...
    • 류성호
      •
      1999.06.07 20:11
      설치 프로그램을 만들어 주는 인스톨쉴드 프로그램은 여러가지가 있습니다. Windows용 설치프로그램 말고...
    • 이정욱
      •
      1999.02.03 21:59
      검색을 하시는 루틴에서(물론 POS함수로 하시죠?) 두개의 검색문을 넣으시면 됩니다. 예를들어.. 그냥.....
    • 이정욱
      •
      1999.06.06 04:19
      델파이 헬프에서 'Distributable Files'라는 색인으로 보세요. 이부분이 글씨가 작아서 잘 안보이니 인쇄...
    • 희
    • •
    • 1999.06.05 23:45
    • 3 COMMENTS
    • /
    • 0 LIKES
    stored procedure사용법좀 갈키주세요
    • 박민주
      •
      1999.02.02 19:08
      안녕하세요. 건전지 충방전 Test 시스템에 사용될 프로그램을 개발하려고 합니다. 가장 정밀할때의 타임...
    • 신호성
      •
      1999.06.07 08:58
      희 께서 말씀하시기를... > 델파이에서 내장프로시저를 사용할때 한 묶음의 결과값을 얻고자 할때는 어떻...
    • 이정욱
      •
      1999.02.03 21:47
      파워러브 델파이 97년 7월(5호)에 보시면 0.001초에 도전하자라는 것이 있습니다. 조금이나마 그것이 도움...
    • 구민오
    • •
    • 1999.02.03 03:49
    • 2 COMMENTS
    • /
    • 0 LIKES
    여러 검색어로 텍스트를 검색하려면???
    • 황영일
      •
      1999.06.05 20:13
      인스톨 프로그램을 만들어 배포해서 win95와 winnt에는 문제가 없었는데 win98에서 알리어스 language dri...
    • 이정욱
      •
      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.06.05 19:23
    • 3 COMMENTS
    • /
    • 0 LIKES
    특정폴더를 열어서 특정화일을 선택되게 하려면?
    • 이정욱
      •
      1999.06.05 20:12
      무슨 말씀이신지...? 다시 정확히 질문 바랍니다. 이현신 께서 말씀하시기를... > 윈도우에서 특정 폴...
    • 이현신
      •
      1999.06.05 22:30
      이정욱 께서 말씀하시기를... > 무슨 말씀이신지...? 다시 정확히 질문 바랍니다. 그러니깐 PC '내 컴...
    • 김태균
      •
      1999.06.07 17:49
      이현신 께서 말씀하시기를... > 이정욱 께서 말씀하시기를... > > 무슨 말씀이신지...? 다시 정확히 질문...
    • 김성중
    • •
    • 1999.02.02 04:02
    • 1 COMMENTS
    • /
    • 0 LIKES
    (질문) 혹시 양력<->음력 변환 Logic...?
    갑자기 필요해서 그러는데.... 혹시 누가 좀 도와주실래요...? 양력과 음력을 상호 변환할 수 있는 Logic이나 component 가지고 계신분...? 도와 주세요....
    • 이정욱
      •
      1999.02.02 09:44
      음.. 여기 있습니다. 잘 사용하시구요... 자주 들러서 답변도 해주세요. 서로 돕구 살아야죠. unit S...
    • 한 재
    • •
    • 1999.06.05 17:33
    • 1 COMMENTS
    • /
    • 0 LIKES
    DBGrid Memofield로 내용 출력하기..
    • 전철호
      •
      1999.06.07 20:11
      한 재 께서 말씀하시기를... > DBGrid에 Memo필드의 내용 출력하기 예제(아래의 소스)의 DatabaseName은 '...
←First Page
1371 1372 1373 1374 1375 1376 1377 1378 1379 1380
Last Page→
한델 로그인 하기