var
dtFirst, dtSecond:TDateTime
begin
dtFirst:=EncodeDate(2003, 1, 5);
dtSecond:=EncodeDate(2003, 3, 17);
ShowMessage('두 기간 사이는 총 '+IntToStr(Ceil(dtSecond-dtFirst))+'일 입니다.');
end;
위와 같은 연산이 가능한 이유는 TDateTime형이 실제로는 double 형이고, 1이 하루를 나타내기 때문입니다. TDateTime형에 대한 도움말을 참고해 보시면 더욱 많은 정보를 얻으실 수 있을 겁니다.
아래와 같이 해보세요.
var
dtFirst, dtSecond:TDateTime
begin
dtFirst:=EncodeDate(2003, 1, 5);
dtSecond:=EncodeDate(2003, 3, 17);
ShowMessage('두 기간 사이는 총 '+IntToStr(Ceil(dtSecond-dtFirst))+'일 입니다.');
end;
위와 같은 연산이 가능한 이유는 TDateTime형이 실제로는 double 형이고, 1이 하루를 나타내기 때문입니다. TDateTime형에 대한 도움말을 참고해 보시면 더욱 많은 정보를 얻으실 수 있을 겁니다.
그럼, 즐푸~