Topic: Вычисление дней А что то не так :)
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.
Подскажите то же самое только для дней, я уже третий день ломаю голову спасибо