Как сравнить даты?

← →
Не знающий (2003-12-03 14:57) [0]

У меня есть два файла которые лежат в разных папках.
Я узнаю дату их создания. А как сравнить эти даты подскажите пожалуйста?
Например, если у первого дата создания меньше чем у второго, тогда, например, копировать второй файл. (т. е. 02.12.2003<03.12.2003)

← →
Anatoly Podgoretsky © (2003-12-03 15:04) [1]

if d1<d2 then

← →
Не знающий (2003-12-03 15:13) [2]

У меня есть такой код и как в нем сравнить эти две даты?

var
Handle1, Handle2:HFile;
FTime1, FTime2:TFileTime;
STime1, STime2: TSystemTime;
begin
Handle1 := CreateFile(PChar("d:\plagin wim\base\bal\bal16.dbf"), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING, 0, 0);
Handle2 := CreateFile(PChar("q:\bin\common\test\bal16.dbf"), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING, 0, 0);

GetFileTime(Handle1, @FTime1, nil, nil);
GetFileTime(Handle2, @FTime2, nil, nil);

FileTimeToSystemTime(FTime1, STime1);
FileTimeToSystemTime(FTime2, STime2);

CloseHandle(Handle1);
CloseHandle(Handle2);

with STime1 do
ShowMessageFmt("Дата создания файла bal16.dbf: %.2d.%.2d.%.4d", [wDay, wMonth, wYear]);
with STime2 do
ShowMessageFmt("Дата создания файла bal16.dbf: %.2d.%.2d.%.4d", [wDay, wMonth, wYear]);

← →
Плохиш_ (2003-12-03 15:15) [3]

>Не знающий (03.12.03 15:13) [2]

Что заменить d1, d2 на FTime1, FTime2 ума не хватает?

← →
Не знающий (2003-12-03 15:17) [4]

Не - ка!!! Ум дома уже!!!

← →
Вованчик © (2003-12-03 15:20) [5]

if FTime1<FTime2 then
копируй первый
else
копируй второй

← →
Не знающий (2003-12-03 15:26) [6]

Все конечно хорошо вот только ошиба появляется:
incompatible types
Как с ней то быть?

← →
Не знающий (2003-12-04 07:07) [7]

Помогите плиззз!!!

if StrToDate("02.12.2003")<StrToDate("03.12.2003") then .... else ....

добавь после

var d1, d2: TDateTime; ... FileTimeToSystemTime(FTime1, STime1); FileTimeToSystemTime(FTime2, STime2); d1 := SystemTimeToDateTime(STime1); d2 := SystemTimeToDateTime(STime2);
и см. [1]

Как сравнить даты? Найти похожие ветки