>>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!
>
>59 Gibson:

lpar b,d
>RETU floo(INT((VAL(DTOS(d))-VAL(DTOS(b))))/10000)

>

BTW, this one was not really from Gibson, this is the Jim Booth's solution :-)

Optimized to save characters:

I have look at it and notice that the INT() part was not needed at all.
I have used the INT() function instead of FLOOR() to save one more char.
Using the "FUNCTION age(b,d)" declaration, no need of "lPar B,d"

RETU INT((VAL(DTOS(d))-VAL(DTOS(b)))/10000)

The shortest function was now at 43 chars :-)