Procedimiento para retornar una fecha con un formato específico II

En esta ocasión vamos a definir un procedimiento que ingrese una fecha de tipo caracter o cadena, y, devolvamos o retornaremos un Date o sea una fecha válida.

Sin más vamos al ejemplo, el nombre del objeto en cuestión es a criterio de cada uno lo vamos a llamar para este caso, "ConvertirDDMMAAAAaDate" (Convertir cadena "DDMMAAAA" y retornar una Fecha)

Rules:

parm(in:&FechaTxt, out:&Fecha);

&Fecha de tipo Character (10).
&Fecha de tipo Date, propiedad Picture 99/99/9999.
La variable &FechaTxt puede ser con formato "dd/mm/aaaa", "dd-mm-aaaa" etc.

Suorce:

Vamos a suponer que el parámetro entrante es: "23/06/2023"

&dia =  Val(SubStr(&FechaTxt,1,2)) --> &dia de tipo Numeric(2)
&mes =  Val(SubStr(&FechaTxt,4,2)) --> &mes de tipo Numeric(2)
&anio = Val(SubStr(&FechaTxt,7,4)) --> &mes de tipo Numeric(4)
&Fecha = YMDtoD(&anio,&mes,&dia)

Es muy similar al anterior, pero esta vez ingresa una cadena de caracteres como fecha y debemos transformarla. Se puede seguir trabajando, se puede agregar más controles. No explaye mucho en el tema puesto que se comprende bien el código en su lógica. Como siempre digo cualquier critica es bien recibida.