Calculo Edad Exacta VB6 con Access

[Cosertel]

Hola a todos

La cuestión es la siguiente:

He buscado por "Internete" posibles funciones/rpocedimientos para poder hacer lo que deseo, que es obtener la edad exacta (Tiene X años, X meses y X Días de haber nacido) del campo Fecha de Nacimiento en Access y reflejar el resultado en label o textbox.

Se que tiene que ser:

EdadVida = DateSystem - "rs.recordset!FechaNacimiento"
Label.Caption = EdadVida

gracias de antemano.

[erbuson]

Revisa la ayuda sobre DateDiff pero si quieres EXACTAMENTE Años, Meses y Dias, deberás currártelo un poco para hacer los cálculos relativos al ultimo año.

Puedes utilizar el DateDiff

Para los años............ DateDiff("yyyy", CDate(Text1), Date)
Para los meses.......... DateDiff("m", CDate(Text1), Date) MOD 12

después te quedan los días que se me antoja algo mas complicado

[Cosertel]

Lo intentaré y escribiré luego que pasó

[Cosertel]

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.

[Txoco]

Buenas

VB, Access, y varios otros entornos tratan las fechas como números enteros de 32bits (Long en VB), que representan el número de días transcurridos desde una fecha concreta; en el caso de MS, es el 1 de enero de 1900. Normalmente no es importante saber la fecha de referencia.

Para saber el intervalo en días entre dos fechas, sólo tienes que restarlas, lo que te proporciona directamente un Long que puedes dividir. En tu caso, una forma sería:

Código:

Dim Tmp As Long
    Tmp = Date - Me.AdoNiño.Recordset!FeNa
    Años = Tmp /365
    Meses = (Tmp mod 365) / 30
    Dias = Tmp - (Años * 365) - (Meses * 30)

Eso si, ten en cuenta que el número de días siempre será aproximado, ya que estás suponiendo que todos los meses tienen 30 días. Sin embargo, al restar de esta manera, estás incluyendo todos los días posibles, contando los 29 de febrero de los posibles años bisiestos que correspondan, ya que el propio sistema se encarga de ello.

Un truco un poco bizarro sería convertir el resultado en días a tipo fecha (CDate(Tmp) en el ejemplo), lo que te daría una fecha exacta de la que puedes extraer directamente el dia y el mes con Day(Tmp) y Month(Tmp) respectivamente, y el año mediante Year(Tmp)-Year(Cdate(0)).

[Cosertel]

Gracias por el dato.

Lo tendré en cuenta para futuras funciones.

[mjimenezcr]

Iniciado por Cosertel

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.

[gersoncl10000]

Hola, esta fórmula funciona creando dos campos una llamado [F_Inicial]= Fecha Inicial y otro llamado [F_Final]= Fecha Final o si quieres solo remplaza el nombre de los campos en la formula por el que tu uses, y un tercero donde calculará el resultado final.


=SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,DifFecha("aaaa",[F_Inicial],[F_Final])-1,DifFecha("aaaa",[F_Inicial],[F_Final])) & SiInm((SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,DifFecha("aaaa",[F_Inicial],[F_Final])-1,DifFecha("aaaa",[F_Inicial],[F_Final])))>1," Años "," Año ") & SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,"11",SiInm((Día([F_Final])-Día([F_Inicial]))<0,(DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))-1,DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))) & SiInm((SiInm((Día([F_Final])-Día([F_Inicial]))<0 Y (DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))=0,"11",SiInm((Día([F_Final])-Día([F_Inicial]))<0,(DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))-1,DifFecha("m",[F_Inicial],[F_Final])-(DifFecha("aaaa",[F_Inicial],[F_Final])*12))))>1," Meses "," Mes ") & SiInm((Día([F_Final])-Día([F_Inicial]))<0,Día([F_Final])-Día([F_Inicial])+Día(AgregFecha("d",Día([F_Final])*-1,[F_Final])),Día([F_Final])-Día([F_Inicial]))

Saludos.