My Visual Database — Добавить 1 час

Re: Добавить 1 час

null@example.com (Vickus) — Mon, 30 Aug 2021 12:57:43 +0000

Огромное спасибо!!!

Re: Добавить 1 час

null@example.com (derek) — Mon, 30 Aug 2021 12:32:45 +0000

Извинения
Время (datetimepicker1) в Форме 2 было неправильно отформатировано в предыдущем вложении.
Сейчас поправил.

Re: Добавить 1 час

null@example.com (derek) — Mon, 30 Aug 2021 12:27:21 +0000

Привет, Vickus
Вы теряете много встроенных функций, используя текстовое поле вместо datetimepicker (неправильная сортировка, дополнительное кодирование, когда час составляет 23:00 + 1 час и необходимо вернуться к 00:00, различные проблемы с форматированием).
Если причиной размышлений об использовании текстового поля и маски поля является то, как оно отображается в таблице, то, возможно, измените отображение столбца таблицы (см. Приложение) как более простой вариант.
Derek

Re: Добавить 1 час

null@example.com (Vickus) — Mon, 30 Aug 2021 12:03:48 +0000

Можете подсказать как вводить в поле DataPicker через маску? И чтобы в дальнейшем в TableGrid информация выходила в формате HH:mm (без секунд и т.д.)

Re: Добавить 1 час

null@example.com (k245) — Mon, 30 Aug 2021 11:44:23 +0000

Vickus wrote:

Спасибо за помощь!
А возможно ли вместо DataPicker все заводить в текстовом поле?
Например: в текстовом поле (Edit1) маска ввода 00\:00;_, во втором текстовом поле (Edit2) та же маска ввода 00\:00;_. При вводе в первое текстовое поле, допустим, 15:00, во втором текстовом поле прибавлялся 1 час и выходило 16:00?

Одной маски недостаточно будет. Маска только определяет, что находится в позиции: цифра или знак. Но у времени нужно учитывать, что минут 60, а часов - 24.

А чем вам специальный компонент ввода не угодил? У него тоже есть ввод через маску )))

Re: Добавить 1 час

null@example.com (Vickus) — Mon, 30 Aug 2021 05:58:17 +0000

Спасибо за помощь!

А возможно ли вместо DataPicker все заводить в текстовом поле?
Например: в текстовом поле (Edit1) маска ввода 00\:00;_, во втором текстовом поле (Edit2) та же маска ввода 00\:00;_. При вводе в первое текстовое поле, допустим, 15:00, во втором текстовом поле прибавлялся 1 час и выходило 16:00?

Re: Добавить 1 час

null@example.com (CDB) — Sun, 29 Aug 2021 19:16:40 +0000

Here is another way

form1.DatePicker2.DateTime := form1.DatePicker1.DateTime + EncodeTime(1,0,0,0);

As for the Edit text. Что касается текстового поля редактирования

form1.Edit1.text := TimeToStr(form1.DatePicker1.DateTime);

Re: Добавить 1 час

null@example.com (Vickus) — Sun, 29 Aug 2021 17:13:33 +0000

Благодарю за помощь! А можно сделать также с текстовыми полями Edit1, Edit 2?

Re: Добавить 1 час

null@example.com (vovka3003) — Sat, 28 Aug 2021 15:07:54 +0000

procedure Form1_DateTimePicker1_OnChange (Sender: TObject);
begin
  Form1.DateTimePicker2.DateTime :=
  Form1.DateTimePicker1.DateTime + 1/24;
end;

Добавить 1 час

null@example.com (Vickus) — Sat, 28 Aug 2021 08:58:59 +0000

Добрый день!
Подскажите как сделать так, чтобы при вводе времени в DataPicker1 (Kind: Time) в другом DataPicker2 (Kind: Time) прибавлялся 1 час.
Например: вводится 14:00 и по событию OnChange в этом поле в другом сразу выходит 15:00.
Очень нужно! Спасибо всем, кто захочет помочь.
P.S. Может быть и вариант, в котором вместо DitePicker будут обычные текстовые поля с маской для ввода времени.