[Daniil]

Помогите реализовать новичку любителю!!
Суть программы заключается в том, что необходимо реализовать на Delphi формулу работающую в Exel:формула (=D2-B3+B4).
Необходимо сложить текущее время и дату с указанным в ручную временем:
Код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit8.Text:=(''+TimeToStr(now));
end;

С указанным временем поступившего сигнала, введенного вручную в edit или лучше в MaskEdit1 и отнять время оперативного скачка так-же введенного вручную в edit или лучше в MaskEdit1.
Вот мой код: Дата прибавляется!! на время введенное в ручную а время отображается текущее.
Код:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if edit4.Text='' then
     hour:=0
  else
   begin
     hour:=StrToInt(edit4.Text);
    end;
 
   if edit5.Text='' then
     min:=0
  else
   begin
     min:=StrToInt(edit5.Text);
        end;
     
  
 a:= Now;  
  b:= IncHour(a, hour);
  c:= IncMinute(b,min);
 
  edit1.text:='' + TimeToStr(c); 
  edit9.Text:=''+DateTostr(c);

end;
MAD: пользуемся тегами!
D2-Текущее время и дата выводимое командой TimeToStr(now)
B3-вводимое в ручном режиме время поступившего звонка
B4-оперативный скачек вводимый в ручную количество дней в формате времени.

[icWasya]

Вот если бы правильно оформил код, то сразу бы было видно, где заканчивается процедура TForm1.BitBtn1Click

[Daniil]

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

Вот если бы правильно оформил код, то сразу бы было видно, где заканчивается процедура TForm1.BitBtn1Click

По этому коду указанное время прибавляется к дате!! но суть в том что нужно еще и отнять некое время. нужно понимание как с edit-a отнять введенно время в ручную вот в таком формате? пример: 08:00 "Двоеточие"

[poli-smen]

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

По этому коду указанное время прибавляется к дате!! но суть в том что нужно еще и отнять некое время. нужно понимание как с edit-a отнять введенно время в ручную вот в таком формате? пример: 08:00 "Двоеточие"

Так проблема в том чтобы из строки "08:00" получить минуты и секунды? Или в том что вычитание времени не работает?

[Daniil]

Сообщение от poli-smen

Так проблема в том чтобы из строки "08:00" получить минуты и секунды? Или в том что вычитание времени не работает?

Из строки 08:00 получить время и отнять его от общего времени
Суть программы заключается в том, что необходимо реализовать на Delphi формулу работающую в Exel:формула (=D2-B3+B4).
D2-Текущее время и дата выводимое командой TimeToStr(now)
B3-вводимое в ручном режиме время поступившего звонка
B4-оперативный скачек вводимый в ручную количество дней в формате времени.

[Alegun]

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

...Из строки 08:00 получить время и отнять его от общего времени...

Код:

...
Edit1.Text:= TimeToStr(StrToTime(Edit2.Text) - StrToTime(Edit3.Text));
...

[Daniil]

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

Код:

...
Edit1.Text:= TimeToStr(StrToTime(Edit2.Text) - StrToTime(Edit3.Text));
...

Спасибо! почти то что нужно, но есть нюанс!! добавляю минуты в edit и нажимаю отнять , отнимает от часов хотя нужно отнять минуту.

[poli-smen]

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

Спасибо! почти то что нужно, но есть нюанс!! добавляю минуты в edit и нажимаю отнять , отнимает от часов хотя нужно отнять минуту.

А если так?:

Код:

  Edit1.Text := TimeToStr(StrToTime(Edit2.Text) - StrToTime('0' + TimeSeparator + Edit3.Text));

[Daniil]

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

Код:

...
Edit1.Text:= TimeToStr(StrToTime(Edit2.Text) - StrToTime(Edit3.Text));
...

Вышел из ситуации следующим образом, исключил второй edit, оставил один MaskEdit. Все работает.

Сообщение от poli-smen

А если так?:

Код:

  Edit1.Text := TimeToStr(StrToTime(Edit2.Text) - StrToTime('0' + TimeSeparator + Edit3.Text));

Вышел из ситуации следующим образом, исключил второй edit, оставил один MaskEdit. Все работает.

Сообщение от poli-smen

А если так?:

Код:

  Edit1.Text := TimeToStr(StrToTime(Edit2.Text) - StrToTime('0' + TimeSeparator + Edit3.Text));

Теперь есть другая проблема в поле минуты ввожу число больше 59 выкидывает ошибку.
Как можно ограничить ввод до определенного числа, т.е не более 59 и так же время не более 23