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
antiguedad := trunc (trunc (date - dm.TbEmpleadosFechadeNacimiento.value) / 365);
dm.TbEmpleadosEdad.value := antiguedad;
end;
except
end;
end;
Nota: El componente DBDateTimeEditEh1 es de la Libreria EhLib... mis campos que se involucran son: FechadeNacimiento y Edad
de antemano muchas gracias..