Work out the expire date of warranty

[Harp]

Hi

I have two field one is a date field called warranty
(This is the date that a warranty started) and a number
field called Years (this is how many years the warranty
it is vaild for). I need to work out on what date the
warranty expires.

Does anyone know of a way to do this?

Thanks

Harp

 

[Graham R Seach]

Harp,

Years is a reserved Access keyword, so don't use it.

Dim dteExpiryDate As Date
dteExpiryDate = DateAdd("yyyy", intYears, dteWarrantyStartDate)

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html