NewFieldValue = FieldValueenough?
>>> >>>FieldValue = {^2008/01/01} >>> >>>DO CASE >>> CASE FormatFieldValue = 'CCYYMMDD' && Should be "20080101" >>> NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))") >>> CASE FormatFieldValue = 'MMDDCCYY' && Should be "01012008" >>> NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))") >>> OTHERWISE && Leave it alone other than converting to text >>> NewFieldValue = EVALUATE("ALLTRIM(TRANSFORM(DTOS(FieldValue), '@R " + REPLICATE('!',FieldLength) + "'))") >>>ENDCASE >>>