0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 23
1

Как прибавить к дате 7 дней

28.11.2018, 09:37. Показов 1460. Ответов 7
Метки нет (Все метки)

Всем привет.

как прибавить к дате "очередного ТО и ПР" еще 7 дней, если она формируется как
DateAdd('m';[Эталон Период ПР];[Эталон Дата ТО])
Миниатюры
Как прибавить к дате 7 дней  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2018, 09:37
Ответы с готовыми решениями:

Как автоматически прибавить к дате 30 дней?
Добрый день, есть в базе поле №1 в формате даты дд.мм.гггг. Необходимо в поле №2 автоматически...

Надо прибавить к дате несколько дней
В одной таблице есть дата отъезда и дата возврата. А в другой длительность тура (поездки). Надо...

Прибавить к дате количество дней и проверить результат на соответствие условию
Подскажите скрипт для vba или sql-запроса: Из таблицы нужно взять значение из поля типа дата...

Как к текущей дате прибавить 1 день
Здравствуйте, подскажите пожалуйста есть форма на ней кнопка и поле, в поле в "значение по...

7
Эксперт MS Access
26720 / 14400 / 3190
Регистрация: 28.04.2012
Сообщений: 15,782
28.11.2018, 09:42 2
Цитата Сообщение от SleepWalker13 Посмотреть сообщение
как прибавить к дате "очередн ТО и ПР" еще 7 дней, если она формируется как DateAdd('m';[Эталон Период ПР];[Эталон Дата ТО])
Visual Basic
1
DateAdd('m';[Эталон Период ПР];[Эталон Дата ТО]) + 7
0
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 23
28.11.2018, 09:53  [ТС] 3
я пробовала... В этом случае в ячейке отображается #Функ. 7 программа видит как дни или месяцы?
0
294 / 255 / 68
Регистрация: 18.06.2015
Сообщений: 570
28.11.2018, 10:58 4
Цитата Сообщение от SleepWalker13 Посмотреть сообщение
7 программа видит как дни или месяцы?
Дата - это число с плавающей точкой. Целая часть - дни от 1900-го года, дробная - время. Так что это дни и прибавление 7 должно работать. Что-то не так делаете. Полностью код дайте.
0
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 23
28.11.2018, 11:32  [ТС] 5
Весь запрос:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SELECT [График ВПП].Код, [График ВПП].ТИП, [График ВПП].ИО, [График ВПП].[заводской №],
 [График ВПП].КТ, [График ВПП].ДИАПАЗОН, [График ВПП].[Эталон Регистрационный №], 
[График ВПП].[Эталон Приказ], [График ВПП].[Эталон Дата приказа], 
[График ВПП].[Эталон Дата рег], [График ВПП].[Эталон Дата Атт], 
[График ВПП].[Эталон Период Атт], [График ВПП].[Эталон Статус Эт], 
[График ВПП].[Эталон Лаборатория], [График ВПП].[Эталон Дата ТО], 
DateAdd('m',[Эталон Период ПР],[Эталон Дата ТО]) AS [Эталон Дата ПР], 
[График ВПП].[Эталон Период ПР], [График ВПП].СФЕРА, 
DateAdd('m',[Эталон Период Атт],[Эталон Дата Атт]) AS [Очередная аттестация], 
[График ВПП].[ВИД ИЗМЕРЕНИЙ], [График ВПП].[Эталон Наименование], 
[График ВПП].[Эталон Эталон], [График ВПП].МетрРабота
FROM [График ВПП]
WHERE ((([График ВПП].СФЕРА) LIKE "*" & "Эталоны" & "*" OR 
([График ВПП].СФЕРА) LIKE "*" & "Средство измерения" & "*" OR 
([График ВПП].СФЕРА) LIKE "*" & "Испытательное оборудование" & "*" OR 
([График ВПП].СФЕРА) LIKE "*" & "Вспомогательное оборудование" & "*") AND 
(([График ВПП].МетрРабота) LIKE "*" & "Поверка" & "*" OR 
([График ВПП].МетрРабота) LIKE "*" & "Калибровка" & "*" OR 
([График ВПП].МетрРабота) LIKE "*" & "-" & "*"));
0
Модератор
Эксперт MS Access
3616 / 2067 / 509
Регистрация: 12.06.2016
Сообщений: 5,286
28.11.2018, 11:57 6
SleepWalker13,

Упрощенный вариант:
SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
SELECT Код, ТИП, ИО, [заводской №], КТ, ДИАПАЗОН, [Эталон Регистрационный №], 
[Эталон Приказ], [Эталон Дата приказа],[Эталон Дата рег], [Эталон Дата Атт], 
[Эталон Период Атт], [Эталон Статус Эт],[Эталон Лаборатория], [Эталон Дата ТО], 
DateAdd('m',[Эталон Период ПР],[Эталон Дата ТО]) AS [Эталон Дата ПР], 
[Эталон Период ПР], СФЕРА, 
DateAdd('m',[Эталон Период Атт],[Эталон Дата Атт]) AS [Очередная аттестация], 
[ВИД ИЗМЕРЕНИЙ], [Эталон Наименование], [Эталон Эталон], МетрРабота
FROM [График ВПП]
WHERE 
(СФЕРА LIKE "*Эталоны*" OR СФЕРА LIKE "*Средство измерения*" OR 
СФЕРА LIKE "*Испытательное оборудование*" OR 
СФЕРА LIKE "*Вспомогательное оборудование*") AND 
(МетрРабота LIKE "*Поверка*" OR МетрРабота LIKE "*Калибровка*" OR 
МетрРабота LIKE "*-*");
0
294 / 255 / 68
Регистрация: 18.06.2015
Сообщений: 570
28.11.2018, 14:41 7
Лучший ответ Сообщение было отмечено SleepWalker13 как решение

Решение

А так?
Visual Basic
1
DateAdd('d'; 7, DateAdd('m';[Эталон Период ПР];[Эталон Дата ТО]))
1
0 / 0 / 0
Регистрация: 28.11.2018
Сообщений: 23
28.11.2018, 15:25  [ТС] 8
SQL
1
DateAdd('d'; 7,DateAdd('d'; 7, DateAdd('m';[Эталон Период ПР];[Эталон Дата ТО]))
огромное спасибо! все заработало)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2018, 15:25

Как можно прибавить дни к введенной дате?
Добрый день форумчане! Уже несколько часов бьюсь над вопросом: Дело такое: Есть таблица 3 столбца...

Прибавить к дате три месяца
здравствуйте пожалуйста подскажите как прибавить к дате три месяца после изменении Text0 ...

Как прибавить 20 дней к дате
В новой ячейке должно прибавляться 20 дней к той дате которая находится в другой ячейки, подскажите...

Как прибавить к дате несколько дней?
$CurrentDate = date("Y.m.d H:i:s"); $Days = ($withdraw_amo/300)*30;//вычисляем оплаченное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.