Delphi - necesito sumar una hora

Hola..
Espero que alguien me pueda ayudar con esto....Despues de que saco la hora del sistema solamente necesito sumarle una hora mas..como lo hago. He intentado convwertir la hora a tipo String y sumarle los 60 minutos pero no funciona.

Agradeceria mucho su ayuda.

Las fechas/horas en Delphi son números en punto flotante donde el entero 1 (uno) representaría un día, y entonces 0.5 significaría medio día, o sea 12 horas... Por lo tanto, si quieres sumarle 5 horas a una fecha hora, simplemente haces así:

hora := hora + 5 / 24;

1 / 24 es una fracción que representa una hora, y multiplicándola por 5, el resultado es una fracción que representa 5 horas.

Espero haberme explicado.

Ernesto

Gracias por resolver mi duda
Era justo lo que necesitaba, habia leido en la ayuda algo sobre lo que tu me dices aqui pero no sabia que onda con la conversion de numeros...
Gracias otra vez..

No hay de qué. Si quieres sumar minutos o segundos, usa una fórmula como esta:

hora := hora + horas / 24 + minutos / 1440 + segundos / 86400;

Un día (una unidad) tiene 24 horas, o sea que cada hora es 1/24, un día tiene 1440, o sea que cada minuto es 1/1440, y un día tiene 86400 segundos, o sea que cada segundo es un 1/86400.

Matemáticamente, esto también vale:

hora := hora + (horas*3600 + minutos*60 + segundos) / 86400;

Simplemente se ha pasado a común denomidor. Un minuto tiene 60 segundos, y una hora tiene 60 minutos, es decir 60 x 60 = 3600 segundos, así que haciendo las multiplicaciones obtenemos en el numerador el total de segundos que queremos sumar, el que dividimos por 86400 que es el total de segundos que tiene un día para así obtener la fracción del día al que corresponde ese tiempo.

Espero que la ampliación te sirva.

Ernesto