Как вычислить время с заданого от системного?

[miorr]

Подскажите пожалуйста, как сделать чтобы программа вычислила сколько минут осталось до полного часа? К примеру текущее системное время TTimer 12.35.00, в Edit задано время в минутах 90. При нажатии на кнопку выводит результат в Memo: с 12.00.00 до 13.00.00 - 25 мин, с 13.00.00 14.00.00 - 60 мин, с 14.00.00 до 15.00 - 5 мин.

[BARNEY]

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

[miorr]

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

Подскажите пожалуйста, как сделать чтобы программа вычислила сколько минут осталось до полного часа? К примеру текущее системное время TTimer 12.35.00, в Edit задано время в минутах 90. При нажатии на кнопку выводит результат в Memo: с 12.00.00 до 13.00.00 - 25 мин, с 13.00.00 14.00.00 - 60 мин, с 14.00.00 до 15.00 - 5 мин.

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

Есть промежутки времени со своим увеличивающим коэффициентом с 12.00 до 14.00 (5), с 14.00 до 16.00 (7), с 16.00 до 18.00 (9), с 18.00 до 20.00 (11). В Edit заносится время в минутах к примеру 60.
Программа должна сразу сравнить системное время с указанными промежутками и в эти промежутки посчитать сколько времени осталось умножить свой промежуток на коэффициент своего времени в итоге сложить и вывести в TLabeledEdit (Секунды не важны).
К примеру:
системное время - 15.40.00
в Edit занесено - 60
получается:
с 14.00 до 16.00 = 20 мин * 7 = 140
с 16.00 до 18.00 = 40 мин * 9 = 360
TLabeledEdit := 140 + 360 = 500

Вот чего я добился. А дальше затруднение


begin
sTime := Edit1.Text;
Timer1.Enabled := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
sTemp: String;
begin
sTemp := FormatDateTime('hh:mm:ss', Time);
if sTime <> sTemp then
LabeledEdit1.Text:=(sTime + ' = Не равно')
else
LabeledEdit1.Text:=(sTime + ' = ' + sTemp + ' = Равно');
end;