calcular la edad....

[Goyo]

ya probe en OnChange y nada me muestra un error que mi tabla no esta en modo edicion... tambien puse el codigo en el evento OnsetText y me marco un error en varisnull.

ojala me puedan ayudar a solucionar este problema, la idea es mejorarlo y/o corregir el codigo... de antemano muchas gracias....

[jhonny]

Pruebalo asi, en el OnChange:

Código Delphi [-]
 
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.TbEmpleados.Edit;
      dm.TbEmpleadosEdad.value := antiguedad;
    end;
  except
    //raise;  no se muetra el error ya que es un campo calculado
  end;
end;

[Goyo]

ya lo probe con el evento OnChange de la manera que me sujeriste y no realiza nada, ni siquiere muestra algo en Dbedit (Edad)... con el evento OnExit del DBDateTimeEditEh1 si lo hace, solo que tiene que pulsar otra vez sobre el mismo componente, despues de haber salido, para que te muestre la fecha...
de todos modos muchas gracias por tus sugerencias...

[jhonny]

Una pregunta, ¿Porque no haces un campo calculado en el DataSet para que uses el evento OnCalcFields?

[Goyo]

Empezado por jhonny

Una pregunta, ¿Porque no haces un campo calculado en el DataSet para que uses el evento OnCalcFields?

ya lo hice dentro del Dataset cree un campo llamado calculaEdad de tipo Integer... ahora que es lo debo hacer con el....
(TbEmpleadoscalculaEdad)
gracias...

[gabrielkc]

Empezado por Goyo

ya lo hice dentro del Dataset cree un campo llamado calculaEdad de tipo Integer... ahora que es lo debo hacer con el....

gracias...

En el evento OnCalcFields de tu DataSet llama el procedimiento que obtiene la edad y asignalo al valor del campo

[gabrielkc]

en el OnCalcFields de tu dataset quedaría

FieldByName('CalculaEdad'):=trunc (trunc (date - dm.TbEmpleadosFechadeNacimiento.value) / 365);

[jhonny]

Bien, entonces solo basta con que coloques tu codigo en el OnCalcFields del Dataset:

Código Delphi [-]
 
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.TbEmpleados.Edit;
      dm.TbEmpleadosCalculaEdad.value := antiguedad;
    end;
  except
    //raise;  no se muetra el error ya que es un campo calculado
  end;
end;

[[Caral]]

Hola
No se si esto te servira, es de truco mania:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

  function Edad(FechaNacimiento:string):integer;
  var
     iTemp,iTemp2,Nada:word;
     Fecha:TDate;
  begin
    Fecha:=StrToDate(Edit1.text); // aqui se inserta la fecha en formato 07/09/1969
    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('07/09/1969'));
end;

Creo que la diferencia seria que en vez de buscar la fecha en el edit, se busque en la tabla.
Saludos