Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2013, 12:46   #1
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию Как вычесть дату???

Всем привет!
Мне надо проверять дату изменения файла, и если файлу уже 1 день, то удалять его.
У меня есть дата изменения файла в типе TDateTime и время сейчас. Как их вычесть чтоб затем увидеть, сколько времени живёт файл???

Пробывал переводить в стринг и далее сравнивать число. Но если, допустим, вчера было 31, а сегодня 1, то получится бред.
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 30.10.2013, 12:52   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Trunc(сейчас - время_изменения) - дней
Trunc(24*(сейчас - время_изменения)) - часов
Trunc(24*60*(сейчас - время_изменения)) - минут
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 30.10.2013, 13:03   #3
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
Радость

Спасибо!
Всё работает!
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 30.10.2013, 13:07   #4
Toxa
Форумчанин Подтвердите свой е-майл
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Сообщений: 514
По умолчанию

а вариант
Код:
if (now - (дата изменения файла в типе TDateTime)) > 1 then delete
не катит?
Пишу на Delphi за еду
Toxa вне форума Ответить с цитированием
Старый 30.10.2013, 13:17   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

В DateUtils есть набор готовых функций работы с датами.
В частности: DaysBetween, Hoursbetween, MonthsBetween, WeeksBetween и т.д. Полно всяких интересных моментов.
Человек_Борща вне форума Ответить с цитированием
Старый 30.10.2013, 21:49   #6
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Цитата:
Сообщение от Toxa Посмотреть сообщение
а вариант
Код:
if (now - (дата изменения файла в типе TDateTime)) > 1 then delete
не катит?
У меня не катит. Там получается ошибка.
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 31.10.2013, 08:11   #7
Toxa
Форумчанин Подтвердите свой е-майл
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Сообщений: 514
По умолчанию

а какая ошибка?
Пишу на Delphi за еду
Toxa вне форума Ответить с цитированием
Старый 31.10.2013, 12:38   #8
alextrof94
Форумчанин
 
Регистрация: 16.03.2013
Сообщений: 599
По умолчанию

-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
https://www.google.ru/search?q=%D0%B...sm=93&ie=UTF-8
alextrof94$gmail.com
alextrof94 вне форума Ответить с цитированием
Старый 31.10.2013, 13:25   #9
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Это тенденция какая-то. Приходишь на форум чтобы пойти в гугл. Что-то тут не так...
Человек_Борща вне форума Ответить с цитированием
Старый 31.10.2013, 16:10   #10
alextrof94
Форумчанин
 
Регистрация: 16.03.2013
Сообщений: 599
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Это тенденция какая-то. Приходишь на форум чтобы пойти в гугл. Что-то тут не так...
у человека статус глянь какой...
А он простейшие функции загуглить не может...
alextrof94$gmail.com
alextrof94 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как проверить дату Михаил Юрьевич Общие вопросы Delphi 17 15.07.2013 22:21
Как вычесть закрашенные ячейки? Тандер Microsoft Office Excel 3 17.08.2012 18:44
Не получается вычесть даты slips PHP 5 08.06.2010 00:40
Как вычесть один диапазон из другого? viter.alex Microsoft Office Excel 11 20.01.2009 16:30
Как вычислить дату? Askat Общие вопросы Delphi 4 21.08.2007 10:27