<!--CodeS-->
procedure TMainFrm.FormCreate(Sender: TObject);
var
  Present: TDateTime; // Present를 TDateTime으로 선언한다.
  Year, Month, Day : Word; // Year, Month, Day를 Word형으로 선언한다.
begin
  Present := Now + 100; // 현재날짜에 100을 더한다.
  DecodeDate(Present, Year, Month, Day); // 시간을 담는 TDateTime형의 변수에서 Year, Month,
                                                                       Day를 분리시킨다.
  DisplayEdt.Text := IntToStr(Year) + '년'+ IntToStr(Month) + '월' + IntToStr(Day)+'일입니다.';
  // DisPlayEdt에 100일후를 출력한다.
end;

procedure TMainFrm.CloseBtnClick(Sender: TObject);
begin
Close; // 프로그램을 종료시킨다.
end;

end.
<!--CodeE-->

이 코드에서 수정하여 특정일로 부터 100일 이렇게 알수는 없을까요?

Now 부분을 수정하면 될것 같은데 아닌가요,,?^^

잘모르겠네요.. 일단 저 소스는 정말 감사드립니다.

특정일 2004년 1월 1일이라면 이 때부터 100일을 계산하고 싶네요..^^

도와주세요~^^