Напоминание Опции

[Крастb]

Нужно в програме сделать некое напиминание например о том, когда заканчивается срок годности продукта. Срок годности равен 1 году (всегда). Например 12.12.1999 упаковали, а с 02.12.2000 и до 22.12.2000 должно выводиться сообщение о том что срок истекает/истек.Если так возможно конечно, а если нет то хотя бы в день окончания срока. Помогите пожалуйста.

[volvo]

Я ж тебе говорил про ...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]

спасибо =)

Сообщение отредактировано: Крастb - 21.12.2009 12:44