calculating exact age and workingyears

[Peter Klaassen - NCC vof]

For this I use in the automatic processing:

:'employmentdate is 10,DMYY/
:'birthdate is 10,DMYY/:
:
:ja(6,.3);la(6,.3);jr(2,.0);lt(2,.0):
:
:ja=((@td-employmentdate)/"364.25");la=((@td-birthdate)/"364.25"):
:
:jr=ja;lt=la:
:@td lt (mid(employmentdate,"1","6"){mid(@td,"7","4"))
:jr=ja-"1":
:@td lt (mid(birthdate,"1","6"){mid(@td,"7","4"))
:lt=la-"1":

calculating total amount op days, deviding by 364.25 into an
.3 variable, placing it in a .2 varibale concluding by checking if 
todaysdate is less than the birthdaydate.
this however not always results in the correct figures.
I can't trace the error I make.
 

isn't there an easier way within filepro processing in presenting the 
exact age and/or years op employment?

-- 
regards,
Peter Klaassen - NCC vof
Havenweg 22 B, 8899 BC Vlieland, The Netherlands
info at webyachts.nl - http://www.webyachts.nl
T +31-562-453015 F +31-562-453088
Skype: peterklaassen