FieldValue = '20080101' ? DATE(VAL(LEFT(FieldValue,4)), VAL(SUBSTR(FieldValue,5,2)), VAL(RIGHT(FieldValue,2))) FieldValue = '01012008' ? DATE(VAL(RIGHT(FieldValue,4)), VAL(SUBSTR(FieldValue,4,2)), VAL(LEFT(FieldValue,2)))>
>>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 >>>>>