FoxPro/Visual FoxPro - ayuda con funcion

Amigos alguien pude ayudarme con una funcion???

necesito una que tome el primer dia del mes corriente.

Creo que hay una funcion, pero sino prueba con esto:

set century on
set date french
mes=month(date())
año=year(date())
PrimerDia=ctod('01/'+alltrim(str(mes))+'/'+alltrim(str(año)))
?PrimerDia

muchisimas gracias Jorge!!! funciono perfecto!!!