Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

как можна проверить, что файл создан сегодня?   Найти похожие ветки 

← →
kand ©   (2004-09-10 16:55) [0]

Если сегодня, то выдыть "Сегодня", а если 10 дней назад, то дату создания.

---

← →
kukuikar ©   (2004-09-10 17:09) [1]

function GetFileDateTime(FileName: string): TDateTime;
var
 intFileAge: LongInt;
begin
 intFileAge := FileAge(FileName);
 if intFileAge = -1 then
   Result := 0
 else
   Result := FileDateToDateTime(intFileAge)
end;

if GetFileDateTime<>NOW then
ShowMessage(DateTimeToStr(GetFileDateTime));

---

← →
kukuikar ©   (2004-09-10 17:15) [2]

if GetFileDateTime<>NOW then
ShowMessage(DateTimeToStr(GetFileDateTime))
else
ShowMessage("Сегодня");

---

← →
palva   (2004-09-10 17:25) [3]

if Trunc(GetFileDateTime("filename"))<>Trunc(Now) then
   ShowMessage(DateTimeToStr(GetFileDateTime("filename")))
 else
   ShowMessage("Сегодня");

---

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

Текущий архив: 2004.09.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c