|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сложение времени и даты с изменение оперативного скачка
Помогите реализовать новичку любителю!!
Суть программы заключается в том, что необходимо реализовать на Delphi формулу работающую в Exel:формула (=D2-B3+B4). Необходимо сложить текущее время и дату: Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin edit8.Text:=(''+TimeToStr(now)); end; Вот мой код: Дата прибавляется!! на время введенное в ручную а время отображается текущее. Код:
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; end; a:= Now; b:= IncHour(a, hour); c:= IncMinute(b,min); edit1.text:='' + TimeToStr(c); edit9.Text:=''+DateTostr(c); D2-Текущее время и дата выводимое командой TimeToStr(now) B3-вводимое в ручном режиме время поступившего звонка B4-оперативный скачек вводимый в ручную количество дней в формате времени. Последний раз редактировалось Daniil, 02.04.2014 в 15:09. |