Calculating Date

[Dummy]

hi,
Check the attached File,
i have a form with 2 text box, one is entry of Date Employed
and after update the second text box calculating the current system date will subtract both years to display how many years Employee worked

i've put =Date()-[DateStartedJob] After update of first text box and not worked and for sure not worked

can anyone help me please

thank you

 

[pbaldy]

I would use the DateDiff function; details in Help.

 

[Jon K]

Put the code in the After Update event of the date field like this:-

Private Sub DateStartedJob_AfterUpdate()

   [b]Me.Text1 = Int((Date - [DateStartedJob]) / 365.25)[/b]

End Sub

The Int() function returns the interger number of years.
.