clsEdad
Clase para calcular el tiempo transcurrido entre dos fechas

Fecha: 11/Dic/97 (la recibí el 19/Oct/97)
Autor: A. David Garza Marín adgarza@sayrols.com.mx

Esta es una clase para VB4 o 5 (Espero que trabaje en el 4.0) para calcular la edad de una persona o el tiempo en días,
meses y años que pasó entre una fecha y otra.

En realidad es muy fácil de utilizar. Estableces la fecha que
quieres calcular (Por ejemplo, la fecha de tu nacimiento):
Así:

cEdad.Fecha = #09/10/1964#

(O con cualquier función que devuelva un tipo de dato DATE).

Luego obtienes la edad así:

Text1.Text = cEdad.Edad

Puedes obtener:

cEdad.Dias
cEdad.Meses
cEdad.Anios

Y Si quieres establecer una fecha distinta a Now como pivote,
pues la asignas a la propiedad FechaComp:

cEdad.FechaComp = DateAdd("y",5,Now)

También devuelve, como ya se sabe, códigos de error con las
propiedades:

cEdad.numErr

y

cEdad.cadErr

+¡Saludos desde México!+
|                      |
| .+'~~'+.             |
| * Tron *  David.BAS  |
| `+,__,+'             |
|                      |
+-adgarza@spin.com.mx--+