FoxPro/Visual FoxPro - fechas

Hola programadores tengo un problema necesito guardar fechas pero de esta forma ejemplo DEL 01 DE ENERO AL 15 DE ENERO

tengo este codigo pero solo me guarda de esta manera DEL 01/01/2009 al 15/01/2009

wini = thisform.text1.value
wfin = thisform.text2.value
wfechas = 'Del '+dtoc(wini)+' al '+dtoc(wfin)
use "c:datafechas"
append blank
replace codigo with wfechas

Gracias

wfechas = 'Del '+str(day(wini))+" de "+cmonth(wini))+' al '+str(day(wfin))+" de "+cmonth(wfin))

Gracias...