Ver Mensaje Individual
  #1  
Antiguo 04-07-2007
Avatar de Goyo
Goyo Goyo is offline
Miembro
 
Registrado: feb 2006
Posts: 89
Reputación: 19
Goyo Va por buen camino
Exclamation calcular la edad....

Estoy realizando un pequeño sistemita para controlar empleados, lo que pretendo realizar es que cuando le escriba y/o seleccione la fecha de nacimiento, al momento de salir de este componente, me muestre automaticamente la edad en un DBEdit. Les comento que SI me muestra la edad, solo que despues de salir del campo DBDateTimeEditEh1 no me muestra la edad automaticamente, para que me pueda mostrar la edad tengo que volver al pulsar sobre el mismo campo para que me pueda mostrar la edad...

Utilizo tablas de Paradox y aqui les muestro el codigo que tengo en el evento OnExit del DBDateTimeEditEh1

Código Delphi [-]
procedure TCardexForm1.DBDateTimeEditEh1Exit(Sender: TObject);
var
 antiguedad : integer;
begin
  try
    if not varisnull(dm.TbEmpleadosFechadeNacimiento.value) and (dm.TbEmpleadosFechadeNacimiento.value <> 0) then
    begin
      //cálculo de la antigüedad de una variedad
      antiguedad := trunc (trunc (date - dm.TbEmpleadosFechadeNacimiento.value) / 365);
      dm.TbEmpleadosEdad.value := antiguedad;
    end;
  except
    //raise;  no se muetra el error ya que es un campo calculado
  end;
end;

Nota: El componente DBDateTimeEditEh1 es de la Libreria EhLib... mis campos que se involucran son: FechadeNacimiento y Edad

de antemano muchas gracias..

Última edición por Goyo fecha: 04-07-2007 a las 19:45:41.
Responder Con Cita