Ver Mensaje Individual
  #4 (permalink)  
Antiguo 20/07/2010, 09:16
Cosertel
 
Fecha de Ingreso: octubre-2009
Mensajes: 40
Antigüedad: 14 años, 6 meses
Puntos: 1
De acuerdo Respuesta: Calculo Edad Exacta VB6 con Access [SOLUCIONADO]

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.

Última edición por Cosertel; 20/07/2010 a las 09:18 Razón: Mala redacción