FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Restar 2 horas...
Hola foristas, mi pregunta ahora es como hago yo en Delphi para restar dos horas, por decir tengo Edit1.Text := '10:00' y Edit2.Text := '10:45' el resultado seria 45 Min o 2700 Seg.
Esperando respuestas, gracias.
__________________
Siempre hay un primer momento para todo. |
#2
|
||||
|
||||
Puedes usar las funciones MinutesBetween o SecondsBetween de la unidad DateUtils:
Código:
var Time1, Time2: TTime; Minutes, Seconds: Int64; begin Time1 := StrToTime(Edit1.Text); Time2 := StrToTime(Edit2.Text); Minutes := MinutesBetween(Time1, Time2); Seconds := SecondsBetween(Time1, Time2); end; |
|
|
|