FoxPro/Visual FoxPro - fechas

hola programadores necesito poner en un text la fecha pero que siempre sea el 01/01 y el año cambia con la fecha actual, lo intente de esta manera pero muestra este error "El valor tipo o numero de argumento no es valido para la funcion"

thisform.text3.value =Ctod( Str( Day(01), 2) + "/" + ;
Str( Month(01), 2 ) + "/" + Str( year( date()), 6))

para que siempre sea 01/01...

v_fecha = "01/01/"+trim(str(year()))

thisform.text3.value =ctod(v_fecha)

Hola. Perdón pero hago una pequeña corrección al código del amigo Santiago. A la función Year le faltó el date() como argumento.

v_fecha = "01/01/"+trim( str ( year( date() ) ) )

Saludos.

Muchas gracias salio correcto

Mil gracias Chucho, efectivamente me comi el date()...