Rutina para una fecha en letras

Hice una variaciones para utilizar la rutina de Hector Urrutia en una función definida por el usuario (UDF) el programa puede tener cualquier nombre yo le puse datestr.prg y asi se llama la función, es como sigue:

PARAMETERS tddate
LOCAL lcStr as String
lcStr = UPPER(CDOW(tdDate)) + [, ] + ALLT(STR(DAY(tdDate))) + [ DE ] + ;
  UPPER(SUBSTR(SUBSTR(DMY(tdDate),AT(" ",DMY(tdDate),1) + 1,LEN(DMY(tdDate))),1,RAT(" ",SUBSTR(DMY(tdDate),;
  AT(" ",DMY(tdDate),1) + 1,LEN(DMY(tdDate))),1))) + [ DE ]+ ALLT(STR(YEAR(tdDate)))
RETURN lcStr 

De esta forma agrega mucha funcionalidad ya que si tenemos una tabla donde haya un campo fecha se puede ver directamente usando el browse tanto el campo fecha como su descripción en letra utilizando la función como un campo calculado por ejemplo:

BROWSE FIELD FECHA,A=DATESTR(FECHA)

también

DISP ALL FECHA,DATESTR(FECHA)

también si tienes la fecha en una variable

? DATESTR(variable)

Gracias a todos en especial a Hector mucha salud y suerte.

Nelson Maranjes
Cuba