Word Year, Month, Day;

    TDateTime dtNow = Now();
    TDateTime dtYesterday = IncDay(dtNow,-1);
    DecodeDate(dtYesterday,Year, Month, Day);
    ShowMessage(AnsiString("Yesterday is Day ") + IntToStr(Day) + AnsiString(" of Month ") + IntToStr(Month) + AnsiString(" of Year ") + IntToStr(Year));
    TDateTime Tomorrow = IncDay(dtNow,1);
    DecodeDate(Tomorrow,Year, Month, Day);
    ShowMessage(AnsiString("Tomorrow is Day ") + IntToStr(Day) + AnsiString(" of Month ") + IntToStr(Month) + AnsiString(" of Year ") + IntToStr(Year));


열시미 부지런히... 님이 쓰신 글 :
: 답변 정말 감사 드립니다.
: 그런데... 어제 또는 내일 날짜를 구할때 Yerterday, Tomorrow 있던데...
: 코딩을 어떻게 하는건지요... 워낙 빌더 사용안한지가 오래되어서요...
:
: 박우성 님이 쓰신 글 :
: : TDate Today = Now();
: : TDate Yesterday = Today - 1;
: :
: : unsigned short Year, Month, Day;
: :
: : Yesterday.DecodeDate( &Year, &Month, &Day );
: :
: :
: :
: : 열시미 부지런히... 님이 쓰신 글 :
: : : 현재 날짜에서 어제 날짜를 구하려고 하는데...
: : : 아래와 같이 현재 날짜를 읽어서 - 1 을 한다음 어제 날짜를 구해서...
: : : 다시 년,월,일 을 문자열을 분리해서 읽어내고 있는데....
: : : 문자열을 분리안하고... 바로 어제 날짜의 년,월,일 바로 함수로 읽어 낼수 있는 방법은 없습니까...
: : : 고수님들 부탁드립니다.
: : :
: : : TDate Today = Today.CurrentDate();
: : : Panel1->Caption = Today;
: : :
: : : AnsiString date, b_year, b_month, b_day;
: : :
: : : TDate YesterDay = Today - 1;
: : : date = YesterDay;
: : : Panel2->Caption = YesterDay;
: : :
: : : b_year = date.SubString(0,4);
: : : PnlYear->Caption = b_year;
: : :
: : : b_month = date.SubString(6,2);
: : : PnlMonth->Caption = b_month;
: : :
: : : b_day = date.SubString(9,2);
: : : PnlDay->Caption = b_day;