FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
tengo el siguiente codigo y lo hace bien.
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. ------------------------------------------------------ hasta aqui todo bien... ahora tengo un tope de horas ( concretamete 64) en la cual tengo que restarle el contenido de edit1.text por ejemplo, si en el contenido de edit1.text es 0:15 en otro text tendria qie poner 53:45, ¿ como se restaria esto y presentaria en otro control text ? Saludos al foro. |
|
|
|