Как вычислить время

@Roman555 · Регистрация: 05.06.2009

Author24 — интернет-сервис помощи студентам

Сделал следующее:
при нажатии кнопок в соответствующие поля выводятся значения текущего времени. Вопрос: как вычислить разницу T3-T5?

v

Delphi

ar
  T5: string;
  T3: string;
 
procedure TForm32.SpeedButton2Click(Sender: TObject);
begin
  T5:= TimeToStr(Now);
  RzNumericEdit5.Text:= T5;
end;
 
procedure TForm32.SpeedButton1Click(Sender: TObject);
begin
  T3:= TimeToStr(Now);
  RzNumericEdit1.Text:= T3;
end;

Помогите пожалуйста

@John_Pa9JIbHuK · 23.11.2009, 19:04

Delphi

1 2	T6:string; T6:=timetostr(strtotime(T3)-strtotime(T5));

@new_in_net · 23.11.2009, 19:08

T3-T5 и есть разница, вопрос видимо как понять чему она равна?

Delphi

var TimeDiff: TDateTime;
 
TimeDiff := T3-T5; // time difference
 
WriteLn('Diff in Hours', Trunc(TimeDiff*24));
WriteLn('Diff in Minutes', Trunc( TimeDiff*24*60));
WriteLn('Diff in Seconds', Trunc( TimeDiff*24*60*60));

@Roman555 · 23.11.2009, 19:10 **[ТС]**

Спасибо!!!

@new_in_net · 23.11.2009, 19:13

Сообщение от Roman555

Спасибо!!!

Правда для показа удобнее если пользоваться

Delphi

1	Label1.Caption := FormatDateTime('HH:NN:SS', T3-T5); // Час:Мин:Сек

@Roman555 · 23.11.2009, 19:21 **[ТС]**

у меня как раз в таком формате 0:02:37 и получается

@Roman555 4 / 4 / 0 Регистрация: 05.06.2009 Сообщений: 25
	23.11.2009, 19:10 [ТС]	4
	Спасибо!!! 0

@Roman555 4 / 4 / 0 Регистрация: 05.06.2009 Сообщений: 25
	23.11.2009, 19:21 [ТС]	6
	у меня как раз в таком формате 0:02:37 и получается 0