Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Quitar un segundo de tiempo a un Timer (https://www.clubdelphi.com/foros/showthread.php?t=84849)

emeritos 16-12-2013 10:41:30

Quitar un segundo de tiempo a un Timer
 
Hola dilferos.

Tengo un campo de tiempo (time) y le quiero o bien quitar o sumar un segundo, para despues verlo en pantalla:

crono.Caption := MQcombate['tiempo'];

¿ Como lo puedo hacer? Para explicarme mejor mas o menos lo que hacen algunas veces en baloncesto cuando aumentan o disminuyen el reloj.

Gracias.

ecfisa 16-12-2013 13:06:36

Hola emeritos.

Si deseas almacenar el cambio:
Código Delphi [-]
uses DateUtils;

...
begin
  with IBDataSet1 do
  begin
    Edit;
    FieldByName('CAMPO_TIME').Value:= IncSecond(FieldByName('CAMPO_TIME').Value, -1);
    Post; 
    crono.Caption := FieldByName('CAMPO_TIME').Value;
  end;
end;

Si no:
Código Delphi [-]
uses DateUtils;
...
begin
   crono.Caption := TimeToStr(IncSecond(IBDataSet1.FieldByName('CAMPO_TIME').Value, -1));
end;

Saludos :)


La franja horaria es GMT +2. Ahora son las 00:02:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi