FoxPro/Visual FoxPro - SEPARAR CADENA TIPO DATE

ya me han ayudado con las cadenas ahora los fastidio de nuevo para que me expliquen como separa la cadena de un campo fecha o date
muchas gracias

dia = subs(dtoc(fecha),1,2)
mes = subs(dtoc(fecha),4,2)
anio = subs(dtoc(fecha),6,2)

dia = substr(alltrim(dtoc(fecha)),1,2)
?dia
mes = substr(alltrim(dtoc(fecha)),4,2)
?mes
año = substr(alltrim(dtoc(fecha)),7,4)
?año

?STR(DAY(fecha))
?STR(MONTH(fecha))
?STR(YEAR(fecha))