My Visual Database — Вычисление дней А что то не так :)

Re: Вычисление дней А что то не так :)

null@example.com (malitos) — Tue, 11 May 2021 03:58:29 +0000

Спасибо тебе огромное за помощь! Работает

Re: Вычисление дней А что то не так :)

null@example.com (sibprogsistem) — Sat, 08 May 2021 12:49:41 +0000

malitos wrote:

Друг спасибо я все таки что то неправильно опять делаю
Я прикрепил проет помоги помогите пожалуйста написать скрипт чтобы при нажатии на комбобох указываешь дни и он автоматически считает, а то у меня считает но когда уходит за другой месяц ошибку выдает

Вы утверждаете, что Вам нужно увеличивать дни но в проекте Вы почему-то увеличиваете месяца
ошибка проста - в году только 12 месяцев..

сделал прибавление по дням
если количество дней больше чем в указанном месяце, то месяц меняется сам

Re: Вычисление дней А что то не так :)

null@example.com (malitos) — Sat, 08 May 2021 05:29:02 +0000

sibprogsistem wrote:

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
  if (Form1.ComboBox1.dbItemID <> -1) then getdays;
end;

Друг спасибо я все таки что то неправильно опять делаю
Я прикрепил проет помоги помогите пожалуйста написать скрипт чтобы при нажатии на комбобох указываешь дни и он автоматически считает, а то у меня считает но когда уходит за другой месяц ошибку выдает

Re: Вычисление дней А что то не так :)

null@example.com (sibprogsistem) — Fri, 07 May 2021 11:36:49 +0000

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
  if (Form1.ComboBox1.dbItemID <> -1) then getdays;
end;

Re: Вычисление дней А что то не так :)

null@example.com (malitos) — Fri, 07 May 2021 08:19:23 +0000

Вроде додумался как сделать все чтоб считало дни но вот беда когда выставляешь обратно значение combobox на NULL то ругаеться на эту строчку я ее выделил жирным:
var
mm,dd,yy,vyear:integer;
procedure Form1_ComboBox1_OnChange (Sender: string);
begin
getdays;
end;
procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
getdays;
end;
procedure getdays;
begin
decodedate(form1.datetimepicker1.date,yy,mm,dd);
vdays := dd + strtoint(form1.combobox1.text);
form1.DateTimePicker2.datetime := encodedate(vdays,mm,dd);
form1.label3.caption := 'BASE DATE + ' + form1.combobox1.Text + ' Years';
end;
begin
end.

в программе пишет "" is not a valid integer value

Вычисление дней А что то не так :)

null@example.com (malitos) — Fri, 07 May 2021 07:24:44 +0000

var
mm,dd,yy,vyear:integer;

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
getyears;
end;

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
getyears;
end;

procedure getyears;
begin
decodedate(form1.datetimepicker1.date,yy,mm,dd);
vyear := yy + strtoint(form1.combobox1.text);
form1.DateTimePicker2.datetime := encodedate(vyear,mm,dd);
form1.label3.caption := 'BASE DATE + ' + form1.combobox1.Text + ' Years';
end;

begin
end.

Подскажите то же самое только для дней, я уже третий день ломаю голову спасибо