>>Ok, that 'puzzle' from Hilmar was far too easy (took me 10 seconds, ok .. 30).
>>
>>Here's a nice contest. Who can write the shortest function (using native vfp functions/commands) that returns a person's age. Input is the birthday and the current date. The winner will get 3 points from me!
>
>Here's mine! I wrote it some years ago.
>

lpar B,D
>A=year(D)-year(B)
>RETU iif(gomo(B,A*12)>D,A-1,A)

>

If you want, you can even remove the params line if you declare the function this way:

FUNCTION age(b,d)

That way you get this:

A=year(D)-year(B)
RETU iif(gomo(B,A*12)>D,A-1,A)

48 chars only! :-)