https://foro.gambas-es.org/viewtopic.php?f=5&t=2285&p=13045#p13045
-----------------------------------
mym769
Jueves, 12 Abril 2012, 04:22

Como Validar Los Campos De La Fecha
-----------------------------------
Buenas amigos, gamberos tengo instalado Gambas 2.19, uso Phpmyadmin bajo Ubuntu 10.04 LTS - la versión Lucid Lynx. 

Estoy tratando de validar los datos que se introducen en la fecha tengo un Valuebox de tipo Date que me da el formato de fecha asi dd/mm/yyyy 
El codigo que tengo me calcula la edad de una persona apartir de la Fecha de Nacimiento y la Fecha actual del sistema el codigo es el siguiente:

PUBLIC SUB ValueBox1_LostFocus()
 DIM DateX AS String[3] 
  TextBox10.Text = Format$(Date, "dd/mm/yyyy")
  DateX = Split(ValueBox1.text, "/")
  TextBox9.Text = CInt((CInt(Format(Date, "yyyymmdd")) - CInt(DateX[2] & DateX[1] & DateX[0])) / 10000)
END

El TextBox10 es quien tiene la Fecha Actual del Sistema 
El TextBox9 es quien da el resultado osea la Edad
El Valuebox1 es donde introduzco la Fecha de Nacimiento


Este codigo funciona 100% bien calcula la Edad fino pero siempre y cuando coloque la fecha en el siguiente orden dd/mm/yyyy "el cual es como la quiero tener "

Lo que quisiera es validar que cuando coloque un dia mayor a 31 ejemplo 33/09/2011 me de un mensaje de error donde diga el mes tiene 31 dias maximo, mas de 31 noo,  No se puede procesar la fecha error en el dia

y que cuando coloque en el mes algo mayor a 12 ejemplo 31/13/2011 me diga epa. los meses solo son 12 No se puede procesar la fecha errror en el mes

Espero me puedan ayudar o guiarme saludos y mil gracias


