FoxPro/Visual FoxPro - fechas

Hola chicos quiero enviar un mensaje si la fecha es menor a 15 y mayor a 50 de lo contrario debe de aceptar envio el codigo
en el cuadro del text4 coloque este codigo para la fecha actual thisform.text4.value=date()
en el fec2 digito la fecha a evaluar
en el text3 muestro la edad

Fec1=(Thisform.Text4.Value)
Fec2=(Thisform.Text2.Value)
edad=(fec1-fec2)/365
thisform.text3.value=edad
if val(thisform.text3.value)<15 and val(thisform.text3.value)>50
=messagebox("La edad no corresponde")
thisform.text3.value=""
thisform.refresh
endif

gracias

No puedes enviar el mensaje?? o cual es el error??

Nota:
Revisa que Thisform.text3.value no sea alfanumérico ( " " )

thisform.text3.value=0

Suerte►

hola gracias por contestar el error es que no cumple la condicion cuando ingreso fecha

yo lo haría así:

En el Click de un Botón o un Valid de algun objeto:

Local Fec1,Fec2, Edad

Fec1=Thisform.Text4.Value
Fec2=Thisform.Text2.Value
Thisform.text3.value=(fec1-fec2)/365
Edad=Thisform.text3.value
Thisform.refresh

if Edad<15 and Edad>50
=messagebox("La edad no corresponde",0+32,"Error")
thisform.text3.value=0
thisform.refresh
else
Wait Window "Intérvalo Aceptado" Timeout .8
endif

Suerte►

en el if de la condicion no es <15 and >50 es <15 or >50
con and siempre entra por el else (no hay una edad que a la vez sea menor a 15 y mayor de 50). saludos

muchismas gracias chicos salio perfecto