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

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

Приветствую, уважаемые эксперты!
Нужна помощь!!!
Есть два DBEdit берутся из баз тип Integer
в одной указывается год в другой месяц
и есть DBEdit тип дата к этой дате надо прибавить дату
из двех DBEdit -ов и вывести
Помогите.

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

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, senyor!
Во первых, сложение двух дат не имеет логического смысла. Вот вычитание - имеет.
Но можно складывать дату и период времени.
код будет где то такой

uses ....,DateUtils, ...;
var
  myDate : TDateTime;  //это наша дата
  y, m:integer;
begin
//тут ввод даты
  //...
//теперь ввод года и месяца
  y :=table1.fieldbyname('for_year').asstring; //зачем с dbedit'a забирать, если можно и правильнее сразу с таблицы?
  m :=table1.fieldbyname('for_month').asstring;
  myDate := IncYear(myDate, y);//добавили года
  myDate := IncMonth(myDate, m);//добавили месяцы
  Edit1.text := DateToStr(myDate);
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 5 октября 2009, 15:50

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

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

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