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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 150

Раздел: Delphi » Прочее
/ вопрос открыт /

Здравствуйте, эксперты!
делаю прогу напоминалку, кто мне посоветует или поможет исходником. Например: сегодня 28сентября. а пользователь в настройках устанавливает оповещать за 5 дней. Вопрос....как делать так чтоб он считал сентябрь что он состоит из 30 дней а сегодня 28-е значит 2 дня и + к этому суммировал 3 дня с месяца окятбря. вот как мне делать исходник. помогите пжлст. Заранее благодарю.

POWER Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: POWER (статус: Посетитель)
Вопрос отправлен: 2 декабря 2008, 09:41
Состояние вопроса: открыт, ответов: 2.

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

Функции для этих целей находятся у тебя на жёстком диске в файле %Delphi%\Source\Rtl\Common\DateUtils.pas
Все функции имеют интуитивно понятные имена, однако советую почитать хэлп по этому модулю.

Для приведённого в вопросе конкретного случая в этом модуле есть вот такая функция:

function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer = 1): TDateTime;

Вопросы будут - в форум.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 2 декабря 2008, 10:09

Ответ #2. Отвечает эксперт: ANBsoft

Здравствуйте, POWER!
А в чем проблема? Тип TDateTime хранит дату в целой части, проверка простая:
if (Trunc("Заданная дата")-"За сколько дне предупредить"<=Date) and (Trunc("Заданная дата")>=Date) then "Выдать напоминание";

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 2 декабря 2008, 21:56


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

Мини-форум пуст.

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:30
Выполнено за 0.03 сек.