FoxPro/Visual FoxPro - Tema de capturar fechas

Hola chicos, quería saber como hago para tomar cada parte de la fecha de date. Si tengo por ejemplo 12/04/2007(día/mes/año) y tengo que poner una variable a cada numero, o sea separar una variable que sea xdia=12, xmes=04 y xaño=2007. Como hago para tomar los primeros 2 caracteres, del cuarto caracter al quinto y del septimo al decimo. Gracias

vAnyo= year( date() )
vMes= month(date())
vDia= day (date())

GUILLERMO LO TENGO QUE SACAR DE UN THISFORM.TEXT1.VALUE, EN EL MISMO ESTA ASI ESCRITO LA FECHA (DIA/MES/AÑO)

Sencillo
vAnyo= year( THISFORM.TEXT1.VALUE)
vMes= month(THISFORM.TEXT1.VALUE)
vDia= day (THISFORM.TEXT1.VALUE)