컴포넌트 자료실에있는 음력 양력변환 컴포넌트를 설치해서 해봤는데요
양력을 음력을로 변환은 잘되는거 같은데 음력을 양력으로 변환이 잘못된 날짜가 계산되네요

혹시 이컴포넌트말고 다른 컴포넌트나 다른 방법있으시면 조언 부탁드립니다.

제가 코딩을 잘못한건지 한번 봐주세요
//음력변환
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    unsigned short pYear,pMonth,pDay;
    Date1->Date.DecodeDate(&pYear,&pMonth,&pDay);
    DateGu->isLeap=false;
    DateGu->solYear=pYear;
    DateGu->solMonth=pMonth;
    DateGu->solDay=pDay;
    DateGu->isLeap=true;
    DateGu->Solar2Lunar();
    Date2->Date = TDateTime(DateGu->lunYear, DateGu->lunMonth, DateGu->lunDay);
}
//---------------------------------------------------------------------------
//양력변환
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    unsigned short pYear,pMonth,pDay;
    Date2->Date.DecodeDate(&pYear,&pMonth,&pDay);
    DateGu->isLeap=false;
    DateGu->lunYear=pYear;
    DateGu->lunMonth=pMonth;
    DateGu->lunDay=pDay;
    DateGu->isLeap=true;
    DateGu->Lunar2Solar();
    Date1->Date = TDateTime(DateGu->solYear, DateGu->solMonth, DateGu->solDay);
}
//---------------------------------------------------------------------------