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]+
Link al zip con el listado. (clsedad.zip 979 bytes)