uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils;


procedure TForm1.Button1Click(Sender: TObject);
var
  dtNow : TDateTime;
  dtThen : TDateTime;

begin
  // IncDay    한날을 더한 날짜 반환
  // IncMonth  한달을 더한 날짜 반환
  // IncYear   한년을 더한 날짜 반환

  // 오늘 날짜 표시
  Label1.Caption := DateToStr(Now());

  // 오늘 날에서 지정한 날짜 가감산
  Label2.Caption := DateToStr(IncDay(Now(), -30));

  // 오늘에서 한달 더하기
  Label3.Caption := DateToStr(IncMonth(Now()));

  dtNow := Now();

  // TDateTime형에 데이터 입력
  dtThen := EncodeDateTime(2008, 9, 9, 12, 12, 12, 0);

  // DaysBetween
  //  : TDateTime 값의 차를 하루(24) 단위로 반환
  Label4.Caption := FloatToStr(DaysBetween(dtNow, dtThen));

  // DaySpan
  //  : TDateTime 값의 차의 그래도 반환
  Label5.Caption := FloatToStr(DaySpan(dtNow, dtThen));
end;