FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Sumar Horas??
Hola a todos, que tal?
Algo facilito para los senecas…. Necesito un código con algún control que el usuario inserte horas y minutos y haciendo (clic por ejemplo en un botón) se vayan sumando las horas y los minutos y mostrar los resultado en otro control ( que control me recomendáis ), teniendo en cuenta que cuando se sobrepasen los 60 segundos incremente lógicamente una hora más. Como seria el codigo en cuestión ¿? Gracias anticipadas. |
#2
|
||||
|
||||
Puedes utilizar el TDateTimePiker con la propiedad Kind en dtkTime.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
No me parece tan logico cambiar cuando llegue a los 60 seg una hora... pero ....bue.....
En principio necesitas un TTimer, con frecuencia 1000(= un seg). y una variable global de tipo TTime, que la puedes inicializar con Time(la hora del sistema) Luego en el onClick de un boton(inc hora), pones Código:
Hora := hora + strtotime('01:00:00'); Código:
Hora := hora + strtotime('00:00:01'); Suerte
__________________
Marín Ignacio Borthiry (Viet) - "El hombre arriesga su vida cada vez que elije y eso es lo que lo hace libre" ;) |
#4
|
|||
|
|||
Hola Yolanda, como entiendo que quieres sumar horas y minutos y obtener el resultado con una apariencia aceptable, te propongo el uso de los SpinEdit uno para las hora y otro para los minutos y obtener el resultado de la suma en un edit, sin duda habrán varias formas de hacerlo pero te propongo que pruebes con esta:
Código:
implementation var totalh,totalm:double; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Hour, Min, Sec, MSec: Word; begin totalh:=totalh+SpinEdit1.Value/24; totalm:=totalm+SpinEdit2.Value/1440; DecodeTime(totalh+totalm, Hour, Min, Sec, MSec); edit1.Text:=IntToStr(hour+trunc(totalh+totalm)*24)+':'+IntToStr(min); end; initialization totalh:=0; totalm:=0; end. |
#5
|
|||
|
|||
Muchas gracias a todos...
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|