>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 >>>>>>