Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.046 c
6-1090365718
Лев Ландау
2004-07-21 03:21
2004.09.26
Конкретный пример заполнения http- форм ! (?)


3-1093848537
Igor Sovinkov
2004-08-30 10:48
2004.09.26
IBdataSet - проблемы с использованием


14-1094743978
X9
2004-09-09 19:32
2004.09.26
Организация локальной сети


1-1095067054
kukuikar
2004-09-13 13:17
2004.09.26
Как перехватить клики в IE?


14-1094230054
Игорь Шевченко
2004-09-03 20:47
2004.09.26
У меня (лично) просьба к любителям почесать языком