FoxPro/Visual FoxPro - fechas

   
Vista:

fechas

Publicado por Meche Gironda (59 intervenciones) el 31/10/2007 15:40:18
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:fechas

Publicado por neo (1601 intervenciones) el 31/10/2007 18:01:34
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►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fechas

Publicado por Meche Gironda (59 intervenciones) el 31/10/2007 18:30:18
hola gracias por contestar el error es que no cumple la condicion cuando ingreso fecha
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fechas

Publicado por neo (1601 intervenciones) el 31/10/2007 18:50:35
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►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fechas

Publicado por eduardo (139 intervenciones) el 31/10/2007 19:52:02
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fechas

Publicado por Meche Gironda (59 intervenciones) el 31/10/2007 20:41:28
muchismas gracias chicos salio perfecto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar