DELPHI, Электронные часы

[Serge_Bliznykov]

Сообщение от РезедаМуратова

if (p and q and r)>0 then

Это означает совсем не то, что Вы думаете.

у Вас два варианта.
1) доверить пользователю самому писать положительные или отрицательные значения.
тогда он может написать:
3:-15: 25
(какое время будет через плюс три часа, минус 15 минут , плюс 25 секунд.

в коде это будет так:

Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600+q*60+r)))

либо, добавьте переключатель - добавлять время или вычитать.
тогда

if ПереключательСкладывать Then 
Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),p*3600+q*60+r)))
else
Memo1.Lines.Add('Новое время: '+FormatDateTime('hh:mm:ss',IncSecond(EncodeTime(m,n,k,0),-(p*3600+q*60+r))))

Вопросы?


p.s. на самом деле, не уверен, что у Вас такое решение в любом случае примут. если это учебная задача, то, скорее всего использовать готовые функции из DateUtils нельзя, нужно алгоритмы преобразования времени писать самостоятельно. но это личное мнение. Возможно, что тут я и не прав.

[РезедаМуратова]

Спасибо большое разобралась.