FoxPro/Visual FoxPro - obtener el dia

tengo esta duda yo estoy tomando una fecha de un txt por ej : 29/09/2009
Tengo alguna manera de obtener el dia que corresponde a la fecha tomada, por ej
tengo tuviera que obtener
29/09/2009 martes
30/09/2009 miercoles
espero que se entienda el ejemplo

MIRA ESTE EJE
repla dia with diass[dow(thisform.fecha1.value)]

PUBLIC DIASS
declare diass[7]
diass[1]="Domingo"
diass[2]="Lunes"
diass[3]="Martes"
diass[4]="Miércoles"
diass[5]="Jueves"
diass[6]="Viernes"
diass[7]="Sábado"

SALUDOS

Mariana, esto espero te sirva:
? CDOW(Date())

set date dmy
fecha=ctod(fecha_txt)
dia=cdow(fecha)

Slds.