[delphidsg]

Есть текущее время — currentTime.
Есть время, задаваемое с помощью MaskEdit — eventTime.
Нужно расчитать время от currentTime до eventTime.
(проблема возникла, при значениях eventTime меньших чем currentTime)
Буду очень признателен.

[lmikle]

А в чем собственно проблема?
TDateTime по сути есть число с фиксированной точкой. И все операции с ним вполне возможны.

Код:

1 2 3

if currentTime < eventTime   Then ShowMessage(TimeToStr(eventTime-currentTime))   Else ShowMessage('-' + TimeToStr(currentTime-eventTime));

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

uses   DateUtils, ... var   currentTime, eventTime: TDateTime; begin   currentTime:=Now;   eventTime:=currentTime+1;   Edit1.Text:=IntToStr(SecondsBetween(currentTime, eventTime)); //  SecondsBetween //  MinutesBetween() //  HoursBetween() end;