Ver Mensaje Individual
  #2  
Antiguo 19-06-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita