Sumar Horas o Minutos

cso2000 · #1 19-06-2003

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.

delphi.com.ar · #2 19-06-2003

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!

cso2000 · #3 19-06-2003

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