Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
*----------------------------------------------------- * 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
Solo debes asingnarle la variable correspondiente a el textbox.
Puedes pobrar con este codigo poniendolo en el LostFocus del TextBox donde captures la fecha de nacimiento y creas otro txtbox=W_EDAD y ahi asignas la edad al dia