Foros Club Delphi - Sumar Horas o Minutos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Sumar Horas o Minutos (https://www.clubdelphi.com/foros/showthread.php?t=1581)

Sumar Horas o Minutos

Saludos a Todos:

El problema que se me presenta es tengo que sumar horas o minutos a un tTime

Var Hora : Ttime;

Hora := strtotime( '09:00' )

y a esta expresion le tengo que sumar 8 Horas para que hora sea = 16:00

Si alguien me ayuda con alguna pista o ejemplo,

de antemano gracias a todos.

Es Fácil, en un tipo de dato TDateTime, la parte entera pertenece al Date y la parte decimal pertenece al Time, con este juego de constantes, podrías hacer casi todos los cálculos necesario

Código:

Const

  DAY         = 1.0;

  HOUR        = DAY / 24.0;

  MINUTE      = HOUR / 60.0;

  SECOND      = MINUTE / 60.0;

  MILLISECOND = SECOND / 1000.0;

Por ejemplo, agregar 5 segundos a una hora

Código:

var MiHora : TTime;

begin

  MiHora := MiHora + (5 * SECOND);

end;

Restarle 1 hora

Código:

var MiHora : TTime;

begin

  MiHora := MiHora - HOUR;

end;

Obviamente te conviene crear tu propio juego de funciones para manejar más claramente estos datos. A partir de Delphi 6 hay una nueva unit con funciones para todos estos cálculos.

Saludos!

Muchas Gracias es justo lo que ocupo

como comentario si lo empleas asi

FormatDateTime( 'hh:nn' , Strtotime( HEntrada.text ) + 8 * HOUR );

El resultado te lo da en formato de Hora Militar es decir

entre las 00:00 y las 23:59

Saludos y Muchas Gracias