Add 4 years less 1 day to a date

[nihalwiks]

I need to calculate the Warranty Expiration Date (Which is the Installation date + (1 day less than 4 years). How do I do this. Thanks in advance for your help

 

[Scot59]

nihalwiks, this will do the trick

Dim vDate as Variant
Dim dteStartDate as Date
Dim dteEndDate as Date

dteStartDate = [YourInstallationDate]

vDate = DateAdd("m",48,dteStartDate)
vDate = DateAdd("d",-1,vDate)
dteEndDate = vDate

regards

Scot