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

← →
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("Сегодня");

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