lparameters tcDate lnDay=val(getwordnum(tcDate,1,"-/.")) lnYear=val(getwordnum(tcDate,3,"-/.")) lnMonth=int(atc(getwordnum(tcDate,2,"-/."), " JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC")/4)+1 return date(lnyear, lnmonth, lnday)...more or less. The month calculation may nead some tweaking before it works right.