Date calculation - adding years 1

[puppygirl3939]

Hello!

This seems rater simple but I have tried my best to accomplish this to no avail. I would like to be able to add two years to a date. Example I have a Date Requested field which the user will enter and I want to automatically have the system complete the Expiration Date field based on the Requested Date field. If the requested date is 7.15.2005 the expiration date should be automatically populated with 7.15.2007.

Any ideas!

 

[JimWWinter]

Would

dExpDate = GOMONTH(dReqDate,24)

work for you?

Regards,
Jim

 

[Stella740pl]

You can also use Date() function.

RequestedDate={7/15/2005}
rYear=YEAR(RequestedDate)
rMonth=MONTH(RequestedDate)
rDay=DAY(RequestedDate)
addYears=2
ExpirationDate=DATE(rYear+addYears, rMonth, rDay)

You will have to add code to avoid Feb.29 issue.

 

[puppygirl3939]

Wow!!!!

One line of code in the LostFocusEvent and it worked. You guys are my heroes.!!!!

 

[03SCBeast]

Perhaps I missed something here but the first solution that came to mind for me was the dateadd function. For my own knowledge is there a reason why the following code wouldn't work? This also seems to work for the Feb 29 issue.

[txtDate] = Any date you choose
[txtDateExpired] control source =DateAdd("yyyy",2,[TxtDate])

 

[craigsboyd]

03SCBeast,

The reason DateAdd() won't work is that this is a forum for Visual FoxPro. I grant you that DateAdd() works really well in VB, VBA, and VBScript, though.

SweetPotato Software Website
My Blog

 

[03SCBeast]

Thanks Craig...as always, I knew I would learn something new.