Вычитание дат

[alexandr779]

Сообщение от min@y™

timeedit1 и 2 - это TEdit?
Если да, то почему не TDateTimePicker?

У меня Delphi FMX а не VLC

Сообщение от Аватар

А зачем первый TimeToStr? Функция возвращает разницу в секундах между двумя TDateTime и эта разница к типу TDateTime не имеет ни какого отношения

Все теперь выходит сделал так Label1.Text := IntToStr((MinutesBetween(StrTotime( TimeEdit1.Text), StrTotime(TimeEdit2.Text))));

Использовал вместо секунд, минуты. А как сделать чтоб например вместо 270 минут выводил выводил как 4 часа 30 минут?

[Аватар]

Не знаешь как секунды в минуты превращать? Подсказа - в минуте 60 секунд, в часе 60 минут и т.д. И div и mod

[Dvoishnik]

Сообщение от Аватар

Не знаешь как секунды в минуты превращать? Подсказа - в минуте 60 секунд, в часе 60 минут и т.д. И div и mod

а не проще в переменную типа TTime присвоить разность

var
Vrem:TTime;
vrem:=(DateEdit1.DateTime-DateEdit2.DateTime) - trunc(DateEdit1.DateTime-DateEdit2.DateTime);
label1.Caption:=TimeToStr(vrem)

[alexandr779]

а как сделать, чтобы при изменении TimeEdit1 менялся TimeEdit2, но с разницей например в 4 часа?

[Аватар]

а не проще в переменную типа TTime присвоить разность

А если разница несколько суток? Ни чего хорошего не получится

с разницей например в 4 часа?

IncHour и аналогичные

[Dvoishnik]

можно Timer1 использовать

procedure TForm1.TimeEdit1Change(Sender: TObject);
begin
Timer1.Enabled:=falsel;
 Timer1.interval:=14400000;//4 часа в мили секундах
 Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// что нужно выполнить
Timer1.Enabled:=falsel;
end;

[Dvoishnik]

Сообщение от Аватар

А если разница несколько суток? Ни чего

сутки откинет и покажет только часы.

Edit1.text:=intToStr(trunc(DateEdit1.DateTime-DateEdit2.DateTime));//так можно узнать сколько суток

[Аватар]

сутки откинет и покажет только часы.

И что, куда сутки пропали из разницы времен? Речь же о разнице. Если заведомо разница меньше суток, тогда можно