FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
|||
|
|||
Hola Telemaco, aqui tienes un pequeño ejemplo de como se restan dos horas distintas.
Código:
procedure TForm1.BitBtn1Click(Sender: TObject); var fecha1,fecha2:Tdatetime; horas:string; begin fecha1:=strtoTime('13:00:00'); Fecha2:=strtoTime('14:00:00'); horas:=timetostr(fecha2-fecha1); edit1.text:=horas; end; espero que te sirva. un saludo. |
|
|
|