Modifying Age Function

[Deborah V. Gardner]

I have the following function.

Function Age(varBirthdat e As Variant) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirth date) Then Age = 0: Exit Function

varAge = DateDiff("yyyy" , varBirthdate, Now)
If Date < DateSerial(Year (Now), Month(varBirthd ate),
Day(varBirthdat e)) Then
varAge = varAge - 1
End If

Age = CInt(varAge)

End Function

I would like to modify it to calculate the Age of a person from the date
he entered the program so I rewrote one of the lines to this

varAge = DateDiff("yyyy" , varBirthdate, tblClients.Inta keDate)

I receive a Compile Error: Fucntion call on left-hand side of assignment
must return Variant or Object.

I would like to know what I am doing wrong and how to correct it.

Thank you,
Deborah

[Phobos]

> Function Age(varBirthdat e As Variant, MyDate as Date) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirth date) Then Age = 0: Exit Function

varAge = DateDiff("yyyy" , varBirthdate, MyDate)
If Date < DateSerial(Year (Now), Month(varBirthd ate),
Day(varBirthdat e)) Then
varAge = varAge - 1
End If

Age = CInt(varAge)

End Function

Then you have to pass the value to the function, in the Design Grid:

QueryField: Age([BirthDate], [MyDate])

P

"Deborah V. Gardner" <dg******@twcny .rr.com> wrote in message
news:3F******** *******@twcny.r r.com... I have the following function.

Function Age(varBirthdat e As Variant) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirth date) Then Age = 0: Exit Function

varAge = DateDiff("yyyy" , varBirthdate, Now)
If Date < DateSerial(Year (Now), Month(varBirthd ate),
Day(varBirthdat e)) Then
varAge = varAge - 1
End If

Age = CInt(varAge)

End Function

I would like to modify it to calculate the Age of a person from the date
he entered the program so I rewrote one of the lines to this

varAge = DateDiff("yyyy" , varBirthdate, tblClients.Inta keDate)

I receive a Compile Error: Fucntion call on left-hand side of assignment
must return Variant or Object.

I would like to know what I am doing wrong and how to correct it.

Thank you,
Deborah

[Deborah V. Gardner]

Phobos

Thank you. It worked!

Deborah

Phobos wrote:

Function Age(varBirthdat e As Variant, MyDate as Date) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirth date) Then Age = 0: Exit Function

varAge = DateDiff("yyyy" , varBirthdate, MyDate)
If Date < DateSerial(Year (Now), Month(varBirthd ate),
Day(varBirthdat e)) Then
varAge = varAge - 1
End If

Age = CInt(varAge)

End Function

Then you have to pass the value to the function, in the Design Grid:

QueryField: Age([BirthDate], [MyDate])

P

"Deborah V. Gardner" <dg******@twcny .rr.com> wrote in message
news:3F******** *******@twcny.r r.com...

I have the following function.

Function Age(varBirthdat e As Variant) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirth date) Then Age = 0: Exit Function

varAge = DateDiff("yyyy" , varBirthdate, Now)
If Date < DateSerial(Year (Now), Month(varBirthd ate),
Day(varBirthdat e)) Then
varAge = varAge - 1
End If

Age = CInt(varAge)

End Function

I would like to modify it to calculate the Age of a person from the date
he entered the program so I rewrote one of the lines to this

varAge = DateDiff("yyyy" , varBirthdate, tblClients.Inta keDate)

I receive a Compile Error: Fucntion call on left-hand side of assignment
must return Variant or Object.

I would like to know what I am doing wrong and how to correct it.

Thank you,
Deborah