Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Como Calcular La Edad
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Como Calcular La Edad 
 
Buenas amigo, soy nuevo en esta comunidad y nuevo programando en gambas tengo instalado gambas 2.19, uso Phpmyadmin bajo Ubuntu 10.04 LTS - la versión Lucid Lynx.
Quisiera calcular la edad a partir de la fecha actual de la Computadora y la fecha de Nacimiento in troducida por teclado tengo el siguiente codigo pero solo me compara el valor del año y no toma en cuenta el dia y ni el mes.

PUBLIC SUB BotonGuardar_Click()
  DIM DateDiff AS Date
  TextBox3.Text = (DateDiff(Date(Now), CDate(TextBox2.Text), gb.Year) * (-1))
END

Tengo un Textbox1.text= lo tengo declarado en el Open del Formulario como Date y con el formato TextBox1.text = Format(Date, "dd/mm/yyyy") funciona perfecto.

Tengo Tambien un Textbox2.text= Que es donde introduzco la Fecha de Nacimiento por teclado

y por ultimo Textbox3.text= Es quien muestra el resultado de la Edad

El codigo anterior hace lo siguiente si aparece en la fecha actual por ejemplo es 18/02/2012 y la fecha de nacimiento 25/09/1982 dice que la edad es 30 donde deberia ser 29 porque no se ha llegado el dia 25 del mes 09.

Me dijeron que tenia que hacerlo con un ciclo While pero de verdad no se como comparar ambas fecha tomando en cuenta el dia el mes y año todos a las vez.

Tengo este problema si alguien me podria ayudar lo agradeceria..
 



 
mym769 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Calcular La Edad 
 
Qué te parece esta solución media chafa, je?¿?

Suponiendo que el formato de fecha que metes en el TextBox2 es dd/mm/yyyy

PUBLIC SUB ButtonCDate_Click()

  DIM DateX AS String[3]
  TextBox1.Text = Format$(Date, "dd/mm/yyyy")
  DateX = Split(TextBox2.Text, "/")
  TextBox3.Text = CInt((CInt(Format(Date, "yyyymmdd")) - CInt(DateX[2] & DateX[1] & DateX[0])) / 10000)

END
 


Saludos!
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Calcular La Edad 
 
Yo uso este codigo para sacar la edad mas exacta.

Código: [Descargar] [Ocultar]
  1. Private Function Age_Read() As Integer
      
  2.  
  3.   $iAge_Natural_Person = IIf((DateDiff(Day(Me.birthday), Day(Now), gb.Day) = 0) And (DateDiff(Month(Me.birthday), Month(Now), gb.Month) = 0), DateDiff(Me.birthday,   Date(Now), gb.Year), DateDiff(Me.birthday, Date(Now), gb.Year) - 1)
      
  4.    Return $iAge_Natural_Person
      
  5.  
  6. End
      
  7.  
  8.  

 



 
gara_pm - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Calcular La Edad 
 
Gracias amigo,  razaAztk  me funciono perfecto mil gracias
 



 
mym769 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Agregar Nombre Y Edad Base Datos Y Mostrar... chen_08 Aplicaciones/Fragmentos de Código 9 Domingo, 07 Febrero 2010, 18:51 Ver último mensaje
Cubel
No hay nuevos mensajes Como Calcular Vencimientos estrella_de_galicia General 3 Miercoles, 02 Junio 2010, 15:30 Ver último mensaje
bies88
No hay nuevos mensajes Calcular La Edad Con DateDiff kexxya General 7 Viernes, 29 Abril 2011, 19:21 Ver último mensaje
DEATH
No hay nuevos mensajes Calcular El Estado Del Inventario jj231089 Bases de Datos 2 Sabado, 16 Noviembre 2013, 19:29 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron