![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Помогите реализовать новичку любителю!!
Суть программы заключается в том, что необходимо реализовать на 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); MAD: пользуемся тегами! D2-Текущее время и дата выводимое командой TimeToStr(now) B3-вводимое в ручном режиме время поступившего звонка B4-оперативный скачек вводимый в ручную количество дней в формате времени. Последний раз редактировалось Daniil, 04.04.2014 в 15:19. |
#2
|
|||
|
|||
![]() Вот если бы правильно оформил код, то сразу бы было видно, где заканчивается процедура TForm1.BitBtn1Click
|
#3
|
|||
|
|||
![]() Цитата:
Последний раз редактировалось Daniil, 04.04.2014 в 11:57. |
#4
|
||||
|
||||
![]() Цитата:
|
#5
|
|||
|
|||
![]() Цитата:
Из строки 08:00 получить время и отнять его от общего времени Суть программы заключается в том, что необходимо реализовать на Delphi формулу работающую в Exel:формула (=D2-B3+B4). D2-Текущее время и дата выводимое командой TimeToStr(now) B3-вводимое в ручном режиме время поступившего звонка B4-оперативный скачек вводимый в ручную количество дней в формате времени. Последний раз редактировалось Daniil, 04.04.2014 в 15:16. |
#6
|
||||
|
||||
![]() Цитата:
Код:
... Edit1.Text:= TimeToStr(StrToTime(Edit2.Text) - StrToTime(Edit3.Text)); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
![]() Цитата:
|
#8
|
||||
|
||||
![]() Цитата:
Код:
Edit1.Text := TimeToStr(StrToTime(Edit2.Text) - StrToTime('0' + TimeSeparator + Edit3.Text)); |
#9
|
|||
|
|||
![]() Цитата:
Цитата:
Цитата:
Как можно ограничить ввод до определенного числа, т.е не более 59 и так же время не более 23 Последний раз редактировалось M.A.D.M.A.N., 07.04.2014 в 18:24. |