안녕하세요. 이보현입니다.
아래의 내용을 보시고 도움이 되시길 바람니다.

function GetTodays(sDate,EDate: TDateTime): integer;
begin
Result:= DateTimeToTimeStamp(SDate).Date-DateTimeToTimeStamp(EDate).Date;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:=inttostr(GetTodays(strToDateTime(edit1.Text),
    strToDatetime(Edit2.Text)));
end;

윤년까지 고려하여 일수를 계산해주는 DateTimeToTimeStamp()함수를
사용했습니다.


for the good time;