sumar 15 minutos a una hora leida de una tabla

[xbisont]

hola a todos!!

espero alguien me peuda ayudar.

necesito leer una hora almacenada en una campo (tipo time) de una tabla, y a esa hora sumarle 15 minutos,
para esta parte lo puedo poner mas sencillo, ¿¿como le sumo 15 minutos a la hora del sistema??

pero la realidad es que necesito saber como debo poner escribir una hora en un edit para que me lo tome como hora real, puedo jalarla de un DateTimePicker pero tengo un boton limpar campos, y es aqui donde quiero regresarla a una hora determinada, ej. 12:00 pm

espero que me puedan ayuar con esas dos preguntas

[Ruben_Cu]

xbisont comentó:

para esta parte lo puedo poner mas sencillo, ¿¿como le sumo 15 minutos a la hora del sistema??

Una de las maneras de hacerlo es:

time+strtotime('00:15')

El valor de time puede ser sustituido por el valor de la hora almacenada en el campo.
Espero te sirva.
Saludos

[Mick]

Otra forma (mas rapida de ejecucion):

time := time + 15 / 1440;

Salud2 !!!

[argami]

ojo si me equivoco en algo avisadme o si quereis completarlo ya sabeis

Para delphi el tipo TDatetime es un Double donde la parte entera equivale a los dias y la parte decimal al las horas portanto

1 dia = 1
1 hora = 1/24
1 Minuto = ((1/24)/60)
1 Segundo = ((1/24)/60)/60

Por Tanto aumentar 1 dia es igual a:

Fecha:TDateTime;
Fecha := now;
Fecha := (Hora + 1);

Para Aumentar 1 hora

Fecha:TDateTime;
Fecha := now;
Fecha := (Hora + (1/24));

Espero que esto te ayude