Показать сообщение отдельно
  #1  
Старый 02.04.2014, 11:38
Daniil Daniil вне форума
Прохожий
 
Регистрация: 02.04.2014
Сообщения: 22
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Сложение времени и даты с изменение оперативного скачка

Помогите реализовать новичку любителю!!
Суть программы заключается в том, что необходимо реализовать на 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;
      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-оперативный скачек вводимый в ручную количество дней в формате времени.
Изображения
Тип файла: bmp счетчик ексель.bmp (178.1 Кбайт, 5 просмотров)
Тип файла: bmp Счетчик.bmp (356.3 Кбайт, 7 просмотров)
Ответить с цитированием