| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

kand ©   (2004-09-10 16:55:00) 

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

---

palva   (2004-09-10 17:25:00) [1]

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

---

kukuikar   (2004-09-10 17:15:00) [2]

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

---

kukuikar   (2004-09-10 17:09:00) [3]

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));

---

Наверх