Главная страница
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.035 c
4-1089778703
LKan
2004-07-14 08:18
2004.09.26
WinExec


1-1094936271
Uroboros
2004-09-12 00:57
2004.09.26
Мультистрочная палитка компонентов


1-1094706565
ArMellon
2004-09-09 09:09
2004.09.26
Как у SpeedButton Убрать рамку после ухода мыши с кнопки?


4-1092151693
Ego
2004-08-10 19:28
2004.09.26
можно ли сделать "ловушку" без использования библиотеки?


4-1091191488
dms_main
2004-07-30 16:44
2004.09.26
Имя текущего пользователя системы