Math problem 1

[jono261970]

Hi,

I was hoping somebody could help me convert the following in to code:

I have two fields in access that I want to manipulate:


"date purchased" field in date format, for example 09/02/2001

"warranty" field in number format, for example 3

So, I am thinking if I add 3 years to the date purchased and then subtract from the current date I should have a rough idea of how much warranty is left. This is no doubt easier said than done.


I am using VB 6 and the DAO method.

Thanks in advance.

jono

A good fortune may forbode a bad luck, which may in turn disguise a good fortune.

 

[Hypetia]

Try this.
___
[tt]
Dim Dt As Date, DaysLeft As Long
'Date of purchase
Dt = #9/2/2001# 'September 2, 2001
'Add warrenty period (3 yrs.)
Dt = DateAdd("yyyy", 3, Dt)
'Number of days left from current date.
DaysLeft = Dt - Date

MsgBox DaysLeft
[/tt]

 

[jono261970]

Hi Hypetia,

your code was spot on. Thanks very much.

jono


A good fortune may forbode a bad luck, which may in turn disguise a good fortune.