Нужно в програме сделать некое напиминание например о том, когда заканчивается срок годности продукта. Срок годности равен 1 году (всегда). Например 12.12.1999 упаковали, а с 02.12.2000 и до 22.12.2000 должно выводиться сообщение о том что срок истекает/истек.Если так возможно конечно, а если нет то хотя бы в день окончания срока. Помогите пожалуйста.
Я ж тебе говорил про ...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;
спасибо =)