Clipper/FiveWin - Saber Edad

Buenos dias amigos del foro, tengo un problema teniendo la fecha de nacimiento como puede hacer para saber cuantos años tiene una determinada persona a hoy.
Espero alguien me pueda ayudar, gracias de ante mano.

Saludos, Cesar.

Usa la siguiente funcion
FUNCTION Edad(dFecNac)
LOCAL dHoy := Date()
LOCAL nYearNac := Year( dFecNac )
LOCAL nMesNac := Month( dFechaNac )
LOCAL nDiaNac := Day( dFechaNac )
LOCAL nYear := Year( dHoy )
LOCAL nMes := Month( dHoy )
LOCAL nDia := Day( dFechaNac )
LOCAL nEdad

IF nMes > nMesNac
nEdad := nYear - nYearNac
ELSE
IF nMes < nMesNac
nEdad := nYear - nYearNac - 1
ELSE
IF nDia >= nDiaNac
nEdad := nYear - nYearNac
ELSE
nEdad := nYear - nYearNac - 1
ENDIF
ENDIF
ENDIF
RETURN nEdad

Function Edad( dFecha )
Local cDevo := Year( Date() ) - Year( dFecha )
cDevo := AllTrim( Str( If( Month( Date() ) < Month( dFecha ), ;
cDevo - 1, If( Month( Date() ) == Month( dFecha ) .and. ;
day( date() ) < day( dfecha ), cDevo - 1, cDevo ) ) ) )
Return ( cDevo )

Cesar, simplemente restando las fechas te va a dar un número entero (Diferencia) el cual será la edad solicitada. Suerte