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

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »

Вопрос # 3 251

Раздел: Delphi » Алгоритмы, преобразования
/ вопрос решён /

Здравствуйте уважаемые эксперты!
Помогите прибавить дату к дате.
Есть два Edit в одной дата из базы в другую надо
прибавить 6 дней

Приложение:
  1. var d1,d2:TDateTime;
  2. begin
  3. d1:=StrToDate(Edit1.Text);
  4. Edit2.Text:=IncDay(d1, 6);
  5. end;
  6.  
  7.  


senyor Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: senyor (статус: Посетитель)
Вопрос отправлен: 5 октября 2009, 01:35
Состояние вопроса: решён, ответов: 1.

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

Здравствуйте, senyor!
d1:=StrToDate(Edit1.Text);
Edit2.Text:=DateToStr(d1+6);

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 5 октября 2009, 02:20
Оценка за ответ: 5

Комментарий к оценке: Спасибо я думал, что нужно применить какую нибуь функцию.
Благодарю!!!

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

Всего сообщений: 1; последнее сообщение — 5 октября 2009, 06:48; участников в обсуждении: 1.
Егор

Егор (статус: 10-ый класс), 5 октября 2009, 06:48 [#1]:

"выдаёт ошибку" - что за ошибка?
на каком этапе возникает (при компиляции, при запуске и т.д.)
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.

5 октября 2009, 10:37: Вопрос перемещён из тематического раздела Delphi » Прочее в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.

11 января 2013, 14:46: Статус вопроса изменён на решённый (изменил модератор DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 19:10
Выполнено за 0.02 сек.