Yep. Very nicely done.
Alan
>>>Is there a function that will return how many decimal places a numberic field has? Something like LEN() for a character field. I know I can get it with AFIELDS but I only want to check one field and this returns all the fields then I need to find what the field number is in the array. Seems like a pain for something this simple.
>>
>>
Function DecCount(tnVal)
>>Local n
>>cVal = Alltrim(Padl(tnVal, 1000))
>>
>>Return Len(cVal - IIF(At('.', cVal) = 0, Len(cVal), At('.', cVal))
>>
>>? DecCount(AliasName.FieldName)
>>
>>Alan
>
>Thanks I shorted it down to
>
>ln_dec = LEN(TRIM(PADR(MOD(field, 1), 21))) - 2
>