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
|