lcValue = transform(FIELDNAME) lnPlace = at('.', lcValue) lnLen = len((lcValue) lnDecimals = iif(lnPlace = 0, 0, lnLen - lnPlace)This is actually more code than using Mark's suggestion of AFIELDS, which can be reduced to the admittedly dense {g}:
afields(laFields) lnDecimals = laFields[ascan(laFields, 'FIELDNAME', -1, -1, 1, 15), 4]Doug