Скачать: CL | DM;

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

← →
Не знающий   (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]

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

---

← →
AbrosimovA ©   (2003-12-04 08:33) [8]

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

---

← →
zapped ©   (2003-12-04 13:55) [9]

добавь после


var
d1, d2: TDateTime;
...
FileTimeToSystemTime(FTime1, STime1);
FileTimeToSystemTime(FTime2, STime2);

d1 := SystemTimeToDateTime(STime1);
d2 := SystemTimeToDateTime(STime2);

и см. [1]

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c