Ver Mensaje Individual
  #7 (permalink)  
Antiguo 21/08/2010, 22:26
mjimenezcr
 
Fecha de Ingreso: agosto-2010
Mensajes: 1
Antigüedad: 13 años, 8 meses
Puntos: 0
Respuesta: Calculo Edad Exacta VB6 con Access [SOLUCIONADO]

Cita:
Iniciado por Cosertel Ver Mensaje
Perdonen la demora, pero ya logré lo que quería.

Lo hice de esta manera:

Primero, una función.
Código:
Function Edad()
If Me.AdoNiño.Recordset.EOF Then
Me.AdoNiño.Recordset.MoveFirst
End If
If Me.AdoNiño.Recordset.BOF Then
Me.AdoNiño.Recordset.MoveLast
End If
Años = DateDiff("yyyy", CDate(Me.AdoNiño.Recordset!FeNa), Date)
Meses = DateDiff("m", CDate(Me.AdoNiño.Recordset!FeNa), Date) Mod 12
Edad = Trim(Años & " Año(s) y " & Meses & " Mes(es) ")
Me.lblNiñosEdadMeses.Caption = Edad
End Function
Luego solo coloqué el nombre de la función tanto en el LOAD del formulario como en el control ADO, para que se actualicen los datos con los que trabajará la función.
Hola, es importante que noten que para poder calcular la edad exacta(almenos en años y meses) deben de considerar el día y mes actual con respecto al dia y mes de la fecha de nacimiento ya que si el día actual es estrictamente mayor al dia de nacimiento y el mes actual es igual o mayor al mes de nacimiento quiere decir que todavía no ha cumplido años, razón por la cual deben de restar un año a los años.... para que lo tomen en cuenta. De igual manera deben de forzar a 11 la cantidad de meses si el mes de nacimiento es igual al mes actual y el dia de nacimiento es mayor al dia actual.

Última edición por mjimenezcr; 21/08/2010 a las 23:03