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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.08.2007, 09:11   #1
Askat
Пользователь
 
Регистрация: 11.06.2007
Сообщений: 20
По умолчанию Как вычислить дату?

Как замутить при вводе сегодняшнюю дату автоматический определялся срок годности на год? Скажем имееться сегодняшняя дата 21.08.2007 (т.е. дата регистрации) и срок годности 21.08.2008.
Askat вне форума Ответить с цитированием
Старый 21.08.2007, 09:35   #2
pinhead
Пользователь
 
Аватар для pinhead
 
Регистрация: 08.12.2006
Сообщений: 36
По умолчанию

Сегодняшнюю дату надо сохранить, например в реестр, и при каждом запуске проги проверять:
если сегодняшняя дата <= (сохранённая дата + 1 год) то
сток не превышен
иначе
сток превышен
Знание этого – Мудрость.
Умение этим пользоваться – Искусство.
pinhead вне форума Ответить с цитированием
Старый 21.08.2007, 09:59   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

if YearsBetween(strtodate('21.08.2007' ),strtodate('21.08.2008'))>1 then Просрочено;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.08.2007, 10:20   #4
Net
;-)
Пользователь
 
Регистрация: 18.07.2007
Сообщений: 69
По умолчанию

Увеличение года - функция IncYear (DateUtils).
Net вне форума Ответить с цитированием
Старый 21.08.2007, 10:27   #5
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,501
По умолчанию

множество функция для работы с датами
http://delphibasics.ru/D.php
Alar вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Help! Как изменить дату создания... Bigi Microsoft Office Excel 1 01.05.2008 14:59
как вычислить формулу? Sergeus Microsoft Office Excel 2 26.02.2008 23:56
[QBasic] Вычислить ряд!! toad88 Помощь студентам 1 20.11.2007 00:07
ВЫЧИСЛИТЬ j^j ПРИ ЗНАЧЕНИИ j ОТ 2 ДО N pirozho4ek Помощь студентам 6 19.05.2007 10:49
как перевести дату в текст zetrix Microsoft Office Excel 0 31.10.2006 07:37