CALCULATING DATES...

Hi

I’ve a list of NonWorking dates in a table. But i would like to have that dates with the same year(working date year). Is this possible?

For example

01-02-2005 ->01-02-2007

12-01-2006 ->12-01-2007

15-06-2003 ->15-06-2007

I’m trying to use calcdate function but i’m not sure about that…

Thank you :slight_smile:

You can do it this way:

DateField is the date which you want to change.

d := DateField;
day := DATE2DMY(d,1);
month := DATE2DMY(d,2);
year := DATE2DMY(d,3);
DateField:=DMY2Date(day,month,2007);

Rec.Modify;

Hope it helps…