De una captura de fecha, hacer que avance con TTimer

[Cristhor1982]

Hola, ECFISA

Te cuento que no logro dar con el porque de el adelanto de un segundo mas ...me podrías dar una idea porfa. Como avanzaba el doble lo unico que se me ocurrio para salir del paso es aumentar el interval a 2000 desde que captura, y no mostrar los segundos :S



Saludos

Empezado por ecfisa

Hola.

Bueno, espero que si...

Ejemplo:

Código Delphi [-]
implementation  

uses DateUtils;

var
  CampoHora : TTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CampoHora := Time;
// En tu caso sería: CampoHora := TuDataSet.FieldByName('FECHA').AsDateTime; 
  Label1.Caption := FormatDateTime('hh:mm:ss', CampoHora);
  Timer1.Interval := 1000;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  CampoHora := IncSecond(CampoHora);
  Label1.Caption := FormatDateTime('hh:mm:ss', CampoHora);
end;

Saludos.