Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Подскажите, как выполнить следующее.
В программе определяется разность дат в днях.
Как, в зависимости от разницы в днях, вывести слово "день"
в Label на форме.
Например.
Разница - 1 день, Label.Caption:='день'
Разница - 2 дня, Label.Caption:='дня'
Разница - 5 дней, Label.Caption:='дней'
Заранее благодарен
Al_Sha

Вопрос задал: Al_Sha (статус: Посетитель) Вопрос отправлен: 19 января 2012, 21:55 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, вот, написал на коленке, не отлаживая. Кажется, вроде, должно работать:

case Разница mod 100 of
  11..19: Label1.Caption:= 'дней';
else case Разница mod 10 of
       1:    Label1.Caption:= 'день';
       2..4: Label1.Caption:= 'дня';
     else
             Label1.Caption:= 'дней';
     end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 20 января 2012, 08:45 Оценка за ответ: 5

Мини-форум вопроса

19 января 2012, 23:02: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.

Ерёмин А.А. (статус: *Администратор), 19 января 2012, 23:03 [#1]: В чём вопрос? В том, как определить разницу в днях? Функция DaysBetween() из модуля DateUtils.

Al_Sha (статус: Посетитель), 20 января 2012, 13:03 [#2]: Спасибо большое, все работает. С уважением Al_Sha

20 января 2012, 14:12: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Неужели сложно изменить статус вопроса?

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.