Date Picker - set date

tcsplinters,
Just saw that Derek already responded. Sorry. Here is another option. I included a "Plus 365 Days" and a "Plus 12 Months" on the form. They both result in the same answer except on February 28 of a leap year. The 12 months option is accurate in that case, but only by one day.

Hi ehwagner

Tried your scripted version.. but cant get the change date version to work

Not sure what I am missing!

procedure frmResults_OnShow (Sender: TObject; Action: string);
begin
    frmResults.dtNextDue.DateTime:= frmResults.dtTestDate.DateTime + 365;
end;

procedure frmResults_dtTestDate_OnChange (Sender: TObject);
begin
    frmResults.dtNextDue.DateTime := frmResults.dtTestDate.DateTime + 365;
end;

begin

end.

Thank you

Hello TCSPLINTERS, Hi EHW,
I wonder if you haven't created any 'events' that link an 'object' to procedures in your script (sorry for the terminology!).

1.  When you use scripting, you will see an 'events tab' for each object (a form, a button, a grid, a field, a label etc etc)
2.  In this example, if you want to create an 'on show' event for Form1, you need to click (3 times) on the specific event
3.  This will automatically created a 'Form1_OnShow' entry against that event and link you to the scripting screen.
In other words, you can't just go into the script and write some code without making sure that the link is in place, otherwise it will never run.
So, in your example, you'll need to create events for frmResults_OnShow and frmResults_dtTestDate_OnChange.
Please have a look at the attached screenshot which might make things clearer.
Hope that helps,
Derek.