IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Напоминание
Крастb
сообщение 17.12.2009 3:16
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Саша

Репутация: -  0  +


Нужно в програме сделать некое напиминание например о том, когда заканчивается срок годности продукта. Срок годности равен 1 году (всегда). Например 12.12.1999 упаковали, а с 02.12.2000 и до 22.12.2000 должно выводиться сообщение о том что срок истекает/истек.Если так возможно конечно, а если нет то хотя бы в день окончания срока. Помогите пожалуйста.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 2)
volvo
сообщение 17.12.2009 3:35
Сообщение #2


Гость






Я ж тебе говорил про ...Between. Вот здесь можно пользоваться DaysBetween:

var n: Integer;
// ...
packingDate := DateTimePicker1.Date; // Ну, или откуда ты там берешь дату упаковки...
n := DaysBetween(Today, packingDate) - 365;
case n of
-10 .. -1: ShowMessage(format('Срок годности продукта истекает! Осталось дней: %d ', [abs(n)]));
0: ShowMessage('Срок годности продукта истекает сегодня!');
1 .. 10: ShowMessage(format('Срок годности продукта истек! Просрочено дней: %d ', [n]));
end;
 К началу страницы 
+ Ответить 
Крастb
сообщение 19.12.2009 4:05
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Саша

Репутация: -  0  +


спасибо =)

Сообщение отредактировано: Крастb - 21.12.2009 12:44
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 15:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"