Modifying Age Function

[Deborah V. Gardner]

I have the following function.

Function Age(varBirthdate As Variant) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirthdate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthdate, Now)
If Date < DateSerial(Year(Now), Month(varBirthdate),
Day(varBirthdate)) 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.IntakeDate)

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(varBirthdate As Variant, MyDate as Date) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirthdate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthdate, MyDate)
If Date < DateSerial(Year(Now), Month(varBirthdate),
Day(varBirthdate)) 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.rr.com... I have the following function.

Function Age(varBirthdate As Variant) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirthdate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthdate, Now)
If Date < DateSerial(Year(Now), Month(varBirthdate),
Day(varBirthdate)) 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.IntakeDate)

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(varBirthdate As Variant, MyDate as Date) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirthdate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthdate, MyDate)
If Date < DateSerial(Year(Now), Month(varBirthdate),
Day(varBirthdate)) 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.rr.com...

I have the following function.

Function Age(varBirthdate As Variant) As Integer

'Function from Microsoft Article Q210522

Dim varAge As Variant

If IsNull(varBirthdate) Then Age = 0: Exit Function

varAge = DateDiff("yyyy", varBirthdate, Now)
If Date < DateSerial(Year(Now), Month(varBirthdate),
Day(varBirthdate)) 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.IntakeDate)

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