• Registered: 2014-08-07
  • Posts: 40

Topic: Data calc

What is wrong with the procedure? Thanks!

procedure Form1_Edit1_OnChange (Sender: string);
var
DayC : integer;
begin

//Day := StrToDate(form1.Edit1.text);  ???

form1.DateTimePicker3.date := (form1.datetimepicker2.date - DayC);
form1.Label6.Caption := DateToStr(form1.DateTimePicker3.date);
end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Data calc

try this:

procedure Form1_Edit1_OnChange (Sender: string);
begin
   form1.DateTimePicker3.date := (form1.datetimepicker2.date - form1.Edit1.Value);
   form1.Label6.Caption := DateToStr(form1.DateTimePicker3.date);
end;
Dmitry.
  • Registered: 2014-08-07
  • Posts: 40

Re: Data calc

Thanks for the help and promptness, it works every time. A day full of accomplishments !!!