14 de septiembre de 2002

Calcular la edad de una persona

Función para calcular la edad de una persona.

*-----------------------------------------------------
* FUNCTION Edad(tdNac, tdHoy)
*-----------------------------------------------------
* Calcula la edad pasando como parámetros:
*  tdNac = Fecha de nacimiento
*  tdHoy = Fecha a la cual se calcula la edad.
*          Por defecto toma la fecha actual.
*-----------------------------------------------------
FUNCTION Edad(tdNac, tdHoy)
  LOCAL lnAnio
  IF EMPTY(tdHoy)
    tdHoy = DATE()
  ENDIF
  lnAnio = YEAR(tdHoy) - YEAR(tdNac)
  IF GOMONTH(tdNac, 12 * lnAnio) > tdHoy
    lnAnio = lnAnio - 1
  ENDIF
  RETURN lnAnio
ENDFUNC

Luis María Guayán

No hay comentarios. :

Publicar un comentario