![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
Крастb |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Реальное имя: Саша Репутация: ![]() ![]() ![]() |
Нужно в програме сделать некое напиминание например о том, когда заканчивается срок годности продукта. Срок годности равен 1 году (всегда). Например 12.12.1999 упаковали, а с 02.12.2000 и до 22.12.2000 должно выводиться сообщение о том что срок истекает/истек.Если так возможно конечно, а если нет то хотя бы в день окончания срока. Помогите пожалуйста.
|
volvo |
![]()
Сообщение
#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 |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Реальное имя: Саша Репутация: ![]() ![]() ![]() |
спасибо =)
Сообщение отредактировано: Крастb - 21.12.2009 12:44 |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 4:44 |