Date "Difference" function? WHAT?????

[DontKnowAnythin]

Can this be done?

I have information about a customer (name, address, DOB etc) which i store in an array

Evertime time i save the customer details, i need something to tell me if the person is over 21 years of age...............is there any way to do this.

I have done everything on my project..............EXCEPT this.

I have looked at all the sources i an find...but to no avail.

Do i use something like Date difference or something , please help.

I have come so far only to fail at this hurdle................aaggggghh!


Thanks

[John McKernan]

Use the DateDiff function:

Dim lAge as Long
 
lAge = DaeDiff("yyyy", FirstDate, SecondDate)

[munsworth]

You can use the DateDiff() function:

DateDiff("yyyy", DOB, Now())

Where the first argument is the interval you want returned,
the second argument is the earlier date, and the last argument
is the later date. You can refer to MSDN for the specifics of
the different intervals.

[DontKnowAnythin]

sorry, i cant seem to get that to work

culd you please elaborate.

I have 2 dates.....the customers date of birth and the current date.

How would using the difference between the 2 dates find out if the customer is over 21?

[Franky]

Excuse my sloopy way to write it, but I am lazy.


txtBirthday = the Birthday of the person
21 is in this example the Year to check
It works exactly on the day!

Private Sub Command2_Click()

MsgBox CheckAgeInYears(CDate(txtBirthday), 21)

End Sub

Private Function CheckAgeInYears(datDate, numCheckAge)

datCompareDate = Format(DateAdd("yyyy", numCheckAge, datDate), "dd.mm.yyyy")

MsgBox datCompareDate

If Format(datCompareDate, "yyyymmdd") > Format(Date, "yyyymmdd") Then
CheckAgeInYears = "Not Ok"
Else
CheckAgeInYears = "Ok"
End If

End Function



nice greetings
Franky

[Mc Brain]

Originally posted by DontKnowAnythin
sorry, i cant seem to get that to work

culd you please elaborate.

I have 2 dates.....the customers date of birth and the current date.

How would using the difference between the 2 dates find out if the customer is over 21?

Try this:

Option Explicit
 
Private Sub Form_Load()
    Dim DOB As Date
    Dim sDOB As String
    
    sDOB = InputBox("Type your date of birth")
    If Len(sDOB) Then
        DOB = CDate(sDOB)
    
        If DateDiff("yyyy", DOB, Now()) < 21 Then
            MsgBox "Dude... you're too young!!!"
        End If
    End If
        
 
End Sub