>NewFieldValue = FieldValue >>enough?
>>>> >>>>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 >>>>