| re: Modifying Age Function
> Function Age(varBirthdate As Variant, MyDate as Date) As Integer[color=blue]
>
> '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[/color]
Then you have to pass the value to the function, in the Design Grid:
QueryField: Age([BirthDate], [MyDate])
P
"Deborah V. Gardner" <dgardner@twcny.rr.com> wrote in message
news:3FA42F5B.E3AB6953@twcny.rr.com...[color=blue]
> 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
>[/color]
| 
