Código:
function Edad(FecNac, FecAct: tDateTime): Integer;
var
nAnoAct, nMesAct, nDiaAct: word;
nAnoNac, nMesNac, nDiaNac: word;
Edad: Integer;
begin
//Calcula la edad en años
//Desglosa la Fecha
DecodeDate(FecNac, nAnoNac, nMesNac, nDiaNac);
DecodeDate(FecAct, nAnoAct, nMesAct, nDiaAct);
//Verifica una fecha
if FecNac = 0 then
begin
Result := 0;
Exit;
end;
//Edad en años
Edad := nAnoAct - nAnoNac;
//Calculo del mes
if nMesAct = nMesNac then
begin
//Para el Dia
if nDiaAct < nDiaNac then Edad := Edad - 1;
end
else if nMesAct < nMesNac then Edad := Edad - 1;
//Devuelve el valor
Result := Edad;
end;
para el qiue la necesite es unafuncion que devuelve la edad exacta en años tomando en cuenta hasta el dia.
FecNac: Fecha de Nacimiento
FecAct: Fecha Actual o fecha a la cual se quiere calcular la edad
Cualquier duda pregunten, esta funcion esta 100% operativa