>Dear Fabian,
>
>Thanks for your reply and the code. Been racking my brains and my time on this one, but it feels good to know that my quest for shorter code was really unfounded ! Will adapt your code to my situation.
>
>Regards,
>
>Steve.

How would this work?

FUNCTION STRING2DATE (LCDATE)
   CRLF = CHR(13)+CHR(10)
   _MONTHS = + "JANUARY"    + CRLF ;
             + "FEBRUARY"   + CRLF ;
             + "MARCH"      + CRLF ;
             + "APRIL"      + CRLF ;
             + "MAY"        + CRLF ;
             + "JUNE"       + CRLF ;
             + "JULY"       + CRLF ;
             + "AUGUST"     + CRLF ;
             + "SEPTEMBER"  + CRLF ;
             + "OCTOBER"    + CRLF ;
             + "NOVEMBER"   + CRLF ;
             + "DECEMBER"   + CRLF 
   LCDAY=GETWORDNUM(LCDATE,1)
   LCMONTH=ALLTRIM(STR(ATLINE(UPPER(GETWORDNUM(LCDATE,2)),_MONTHS)))
   LCYEAR=GETWORDNUM(LCDATE,3)
   RETURN LCDAY + "/" + LCMONTH + "/" + LCYEAR
ENDFUNC

Tracy