FoxPro/Visual FoxPro - gomonth

Hola foro necesito de ayuda tengo este codigo que verifica si la ultima atencion es antes de los 7 meses lo hace bien asta ahi, el problema es cuando ya lo acepto y voy a registrar a este cliente en el campo fecha puedo colocar cualquier fecha y lo acepta y no se como consistenciarlo a este tambien para que no acepte me ayudan gracias.

selec tabla1
set order to codigo_cliente
seek thisform.text1.value
if found()
thisform.text1.value=tabla1.codigo_cliente
if thisform.text1.value >=gomonth(date(),-7)
=messagebox("debe de pasar 7 meses para su cita ","Mensaje del Sistema")
thisform.text1.value=""
thisform.text1.setfocus
thisform.refresh
endif
endif

no te entendi

si tienes razon bueno de esta manera creo que mejare entender

quiero validar fechas de acuerdo al codigo del cliente y fecha en mi tabla ya tengo un registro y voy a volver a registrarlo no me debe permitir si es menos de 7 meses

si estas usando datetime lo primero es sacar solo la fecha de la variable
luego restale a la fecha del sistema tu variable te daras los dias trancurrido
esto lo divide por trenta y te daras un aproximado de los meses transcurrido

ejemplo
***** Recuerda sacar solo la fecha No tengo a visual ahora y no recuerdo la funcion
******* trenta es un constante para los dias del mes la mas proxima es 30.41667, perderas un dia cada cuatro ano pero eso no importa no somos perfecto

AA = (date()-fecha de la data)/30
If Int(AA)<7
No ha pasado siete meses
Else
Ya pasaron Siete meses
EndIf