728x90
출처 :
http://delphi.about.com/od/beginners/l/blrtldatetime.htm
http://wwwi.tistory.com/category/델파이
http://www.zetblog.net/Zcontent_list.php?category_idx=61
CompareDate
uses
DateUtils;
//# 같으면 0 출력
ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-01'), StrToDate('2007-04-01'))));
//# 오른쪽이 더 크면 -1 출력
ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-01'), StrToDate('2007-04-02'))));
//# 왼쪽이 더 크면 1 출력
ShowMessage(IntToStr(CompareDate(StrToDate('2007-04-02'), StrToDate('2007-04-01'))));
728x90