FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Sumar Horas o Minutos
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. |
#2
|
||||
|
||||
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; Código:
var MiHora : TTime; begin MiHora := MiHora + (5 * SECOND); end; 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. |
#3
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|