>>>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 :-)

This can be further shortened, replacing the two val() with an eval(), and using scientific notation for "10000":

RETU INT(eval(dtos(d)+"-"+dtos(b))/1e4))

(39 characters)

Hilmar.