Foros Club Delphi - Restar 2 horas...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Restar 2 horas... (https://www.clubdelphi.com/foros/showthread.php?t=4504)

CFPA86

17-10-2003 19:59:44

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.

roman

17-10-2003 20:30:54

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;

// Saludos

La franja horaria es GMT +2. Ahora son las 19:05:17.