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
[email protected]


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  |
| `+,__,+'             |
|                      |
[email protected]+

ir al índice

 Link al zip con el listado. (clsedad.zip 979 bytes)