Как прибавить год к дате DBDateTimeEditEh?

@HId-production · Регистрация: 11.04.2016

Студворк — интернет-сервис помощи студентам

Привет всем!
3д Дизайнер-Проффффи
Программирование- чайник! Помогите пожалуйста добрые люди!

На форме есть 2 компонента DBDateTimeEditEh! они связаны с бд аксесс через
(ADOConnection1, ADOQuery1, DataSource1, DBGridEh1)

в DBGridEh1 есть столбец (ТБ) и ((ТБ СДАЛ) но он не отображается в DBGridEh1)
Когда нажимаем Кнопку-----Запись----->Изменить-----> Там отображается оба!

задача:
DBDateTimeEditEh1---Вводим дату----------(01.01.2018)--->ТБ СДАЛ (Он сдал экзамен)
DBDateTimeEditEh2--- 01.01.2018+год-----(01.01.2019)--->ТБ (Периодический экзамен через год)

И кнопка для сохранения

Delphi
1
2
3
4
5
procedure TForm3.Button1Click(Sender: TObject);
begin
  Form2.ADOQuery1.Post;
  Close;
end;

@D1973 · 07.02.2018, 10:20

Я не знаю, что там творится в DBGridEh, с этим сами разбирайтесь, а прибавить год к какой-то дате можно при помощи функции IncYear() из модуля DateUtils

@HId-production · 07.02.2018, 16:28 **[ТС]**

Спасибо бро. Еше есть варианты пожалуйста.

@krapotkin · 07.02.2018, 16:37

еще вариант - воспользоваться функцией IncYear()
и волшебным знанием, что DB-компоненты всего лишь отображают то, что хранится в указанном поле указанного датасета
поэтому если вдруг в какой-то момент

Delphi
1
dataset.fieldbyname('bbb').asdatetime := incYear(dataset.fieldbyname('aaa').asdatetime,1);

...

@HId-production · 18.02.2018, 20:14 **[ТС]**

Всем привет и спасибо!

Сделал простым путем!

Вот код:

Delphi
1
2
3
4
5
6
procedure TForm3.DBDateTimeEditEh6CloseUp(Sender: TObject; Accept: Boolean);
                                                      // ДАТА + 365 дней ТБ
begin
 Form3.DBDateTimeEditEh1.value
 := Form3.DBDateTimeEditEh6.value+365;
end;

@krapotkin · 18.02.2018, 20:16

да. некоторые ничему не учатся..

@HId-production · 18.02.2018, 20:23 **[ТС]**

Спасибо тебе брат krapotkin! Походу изучил IncYear

После 11 дней нашел ответ

@qwertehok · 18.02.2018, 21:37

в обработчике который начинается с

Сообщение от HId-production

procedure TForm3.

не надо писать Form3

@northener · 20.02.2018, 02:23

Не по теме:

Сообщение от qwertehok

в обработчике который начинается с
procedure TForm3.
не надо писать Form3

Правильнее сказать "ни в коем случае не надо писать Form3 под страхом отрубания рук".
Ибо просто "не надо" мало о чем говорит.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,426 Записей в блоге: 3
	07.02.2018, 10:20
	Я не знаю, что там творится в DBGridEh, с этим сами разбирайтесь, а прибавить год к какой-то дате можно при помощи функции IncYear() из модуля DateUtils 1

@HId-production 2 / 2 / 1 Регистрация: 11.04.2016 Сообщений: 14
	07.02.2018, 16:28 [ТС]
	Спасибо бро. Еше есть варианты пожалуйста. 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	18.02.2018, 20:16
	да. некоторые ничему не учатся.. 0

@HId-production 2 / 2 / 1 Регистрация: 11.04.2016 Сообщений: 14
	18.02.2018, 20:23 [ТС]
	Спасибо тебе брат krapotkin! Походу изучил IncYear После 11 дней нашел ответ 0

Опции темы

Как прибавить год к дате DBDateTimeEditEh?

Решение