|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сложение времени и даты HELP!
Помогите реализовать новичку любителю!!
Суть программы заключается в том, что необходимо реализовать на 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. |