That's clever!

>>>>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.