Ver Mensaje Individual
  #4  
Antiguo 09-09-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
En Paradox me parece que hay poco que hacer pues si bien tiene la función EXTRACT para extraer campos individuales de una fecha, carece de una función que determine la fecha actual del sistema.

Pero como te dije anteriormente, puedes usar DecodeDate de la unidad SysUtils:

Código Delphi [-]
var
  Nacimiento: TDate;
  Hoy: TDate;

  ANacimiento: Word;
  AHoy: Word;

  Mes, Dia: Word;

begin
  Nacimiento := Table1.FieldByName('nacimiento').AsDateTime;
  Hoy := Date();

  DecodeDate(Nacimiento, ANacimiento, Mes, Dia);
  DecodeDate(Hoy, AHoy, Mes, Dia);

  Edit1.Text := IntToStr(AHoy - ANacimiento);
end;

Usando lo mismo puedes incluso agregar un campo calculado a la tabla.

// Saludos
Responder Con Cita