Como Calcular La Edad


Objetivo: 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..

Objetivo: 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!

Objetivo: 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.  

Perfil MP  
Objetivo: Re: Como Calcular La Edad
Gracias amigo, razaAztk me funciono perfecto mil gracias


Página 1 de 1


  
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

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4067s (PHP: -79% SQL: 179%)
Consultas SQL: 44 - Debug off - GZIP Activado