Calculo edad de QRDBtext

[jonydread]

Hola amigos!
tengo un problema que no logro resolver, necesito poner un calculo de edad segun el dato que entrege un campo qrdbtext.
actualmente uso este para mostrarlo en un listview pero quiero mostrar lo mismo en un reporte de quickrep como podria hacerlo?

Código Delphi [-]
function CalculaEdadCompleta(Fecha:TDateTime):String;
var A, AA, M, MM, D, DD: Word;
  Anio, Mes, Dia: double;
begin
  DecodeDate(Fecha, A, M, D);
  DecodeDate(Date, AA, MM, DD);
  Anio := Int(AA - A);
  if( M <= MM ) then
     Mes := MM - M
  else
  begin
    Mes := MM+12-M;
    Anio := Anio -1;
  end;
  if( D <= DD ) then
    Dia := DD - D
  else
  begin
    Dia:=DD+MonthDays[IsLeapYear(AA),MM]-D;
    Mes := Mes -1;
  end;
if Mes < 0 then
  begin
    Anio := Anio - 1;
    Mes := 12 + Mes;
  end;
  Result := Format('Años: %.0f, Meses: %.0f, Dias: %.0f', [Anio, Mes, Dia]);
end;

Gracias
Saludos!!

[Casimiro Notevi]

Si no das más datos
Tienes varias opciones simples, lo más fácil: edad = fechaactual-fechanacimiento

[webmasterplc]

BUenas, sigue este hilo Aqui se muestra como calcularla y ademas un compañero me ayuda a colocar la funcion en una dll

[jonydread]

gracias estoy revisando el hilo, me explico mejor tengo todo en una base de datos la cual existe una fecha de creación, la funcion calcula edad completa funciona bien para mostrar en listview pero necesito mostrar lo mismo segun la fecha dada en QRDBtext. dejo imagen de como muestra listview y lo que quiero mostrar en un reporte de quickrep


Favor si hay alguna idea agreceria!

[[ElKurgan]]

Se puede hacer poniendo en la banda de detalle del QR una etiqueta simple (QRLabel), a la que llamaremos, por ejemplo, qrlblEdad.
Luego capturas el evento "BeforePrint" de la banda de detalle y pones algo como esto (no tengo el Delphi a mano, asi que escribo de memoria ):

Código Delphi [-]
procedure Tform2.qrbDetalleBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  // No conozco el nombre de los campos, pero algo así podría servir.
  qrlblEdad.Caption := CalcularEdadCompleta(QReport1.Dataset.FieldByName('Fecha').AsTDateTime);
end;

Eso si, la función debe estar visible para la unit del informe.

Saludos

[jonydread]

Muchas gracias de este modo logre hacerlo.

Saludos!!