Cita:
Empezado por jafera
Necesito algo dinámico en cuanto al año en curso ya que no voy a estar año tras año variando el valor del año del que restar y he pensado en una variable año que tengo para otros menesteres en el programa.
|
Estimado
jafera :
Yo utilizo siempre esta función, que alguien que no recuerdo, alguna vez publicó en el foro:
Código Delphi
[-]procedure TForm1.DBEdit1Change(Sender: TObject);
function Edad(FechaNacimiento:string):integer;
var
iTemp,iTemp2,Nada:word;
Fecha:TDate;
begin
Fecha:=StrToDate(FechaNacimiento);
DecodeDate(Date,itemp,Nada,Nada);
DecodeDate(Fecha,itemp2,Nada,Nada);
if FormatDateTime('mmdd',Date) <
FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1
else Result:=iTemp-iTemp2;
end;
begin
Label1.Caption:=intToStr(Edad (EditFecha.Text));
end;
Utiliza la propiedad OnChange del DBEdit en el que visualizas la fecha y te entrega en años la edad actualizada en el Label1
Ojalá te sirva
Salu2