How to find date of retirement

[karimufeed]

I am working on an access project for pension calculation. I want to generate the retirement date automatically at the age of 60 years while filling the date of Birth. i.e. if the Date of birth is 15/1/1950 then the date of retirement will be 31/1/2010 and if the date of birth is 01/1/1950 then the date of retirement will be 31/12/2009 one day earlier.
Kindly help me how to generate the date of retirement by using VB code in an access project.

[MikeTheBike]

I am working on an access project for pension calculation. I want to generate the retirement date automatically at the age of 60 years while filling the date of Birth. i.e. if the Date of birth is 15/1/1950 then the date of retirement will be 31/1/2010 and if the date of birth is 01/1/1950 then the date of retirement will be 31/12/2009 one day earlier.
Kindly help me how to generate the date of retirement by using VB code in an access project.

Hi

I feel sure that you have not given us all your requirements, but this does exactly what you have specified

Sub Test()
    Dim DOB As Date
    Dim RetirementDate As Date
    
    DOB = "15/01/1950"
    
    RetirementDate = DateSerial(Year(DOB - 1) + 60, Month(DOB - 1) + 1, 1) - 1
    
    MsgBox RetirementDate
    
End Sub

I am not sure what you want to happen with any other dates in the month/year !?

If you are not familiar with the DateSerial() function then I suggest you look at Help for more explanation, but all I can say is it is extremely flexible for calculating dates (more so than DateAdd() and DateDiff() IHMHO).

HTH


MTB