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

[Veiron]

1. Как вычитать время ?
2. Как узнать данный час, минуту и секунд отдельно ? Другими словами разделить Time на три части и вывести на экран...

[zetrix]

1. как числа. Например:
var time1,time2,time3:Tdatetime;
...
time1:=now;
<операции>
time2:=now;
time3:=time2-time1; //сколько времени выполнялись <операции>

2. Label1.caption:=formatdatetime('hh: mm:ss.zzz',now);
остальное в справке

[Veiron]

А как такое реализовать?
Нужно задать время (например в трех Edit для чч:мм:сс) через которое выполниться действие, при этом вывести таймер обратного отчета на Label.
Мучаюсь второй день, уже такая каша в голове...

[zetrix]

var
  Form1: TForm1;
  t:TdateTime;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
t:=encodetime(strtoint(Edit1.text),strtoint(Edit2.text),strtoint(Edit3.text),0);
timer1.Enabled:=not(timer1.Enabled);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
t:=t-0.00001;
label1.Caption:=formatdatetime('hh:nn:ss',t);
end;

У таймера вначале Enable=false !

Для справки: смотрите хелп по EncodeTime; EncodeDate; DecodeTime; DecodeDate; EncodeDateTime; DecodeDateTime...
Их ещё куча. (Для преобразования даты/времени - 21 шт.; Для переобразования даты/времени в другие типы данных - 24 шт) Это сколько я насчитал

Для написавших ниже: 2 минуты на поиск в книге, 2 минуты писанины, 1 минута - копировать/вставить сюда Итого 5 мин.
"У вас ещё осталось время почитать газету и выпить чашечку кофе" © фильм "Такси"

[delphin100]

1)Как реальзовать:
i:=pos(строка с временем,':');
s:=copy(строка с временем,1,i);
delete(строка с временем,1,i+1);
но тут я не уверен как в процедурах и функциях идут переменные
так что по другому можно так:
час:=strtoint(строка с временем[1]+строка с временем[2]);
мин:= -//-[4]+-//-[5]);
сек:= аналогично;
2)обратный отсчет time к которому идем допустим новый год будет time1
тогда time который будет уменьшатся time2;
time2:=time1-time;
всё;

[SunKnight]

Вот получите исходники (15 минут работы ), надеюсь разбереш
TIMER.rar

[Veiron]

zetrix Спасибо, а то с просто вычитанием времени получалась что то не то...

[_SERGEYX_]

Я тоже как-то мучился с вычислением времени, пока не сообразил подключить модуль DateUtils. Там тьма готовых функций для работы с датой/временем, такие как
SecondsBetween()
SecondOfTheWeek()
MinuteOfTheYear()
MinuteOf()
... и много других.

[Veiron]

Появилась еще одна проблема, тема такая:

hEdit.Text:=FormatDateTime('hh',Tim e); // В hEdit получается текущий час
mEdit.Text:=FormatDateTime('mm',Tim e); // В mEdit получается 12 независимо от текущей минуты, можно это как нибудь исправить ?

При этом минуты напишутся правильно если написать mEdit.Text:=FormatDateTime('hh:mm', Time); в таком случае можно ли как нибудь из строки вырезать первые три символа ? Есть TrimLeft только не разобрался в нем...

Случайно mm заменил на nn : mEdit.Text:=FormatDateTime('nn',Tim e); и все получилось после чего понял что 12 это месяц и то прошедший Delphi жжет Оо

[SunKnight]

uses DateUtils;
.........
mEdit.Text:= inttostr(MinuteOf(time));