Добро пожаловать на Ass1s. Пожалуйста, авторизуйтесь или зарегистрируйтесь.

Июнь 13, 2024, 14:31

Вход в систему с именем пользователя, паролем и длиной сессии
Пользователи
  • Всего пользователей: 40
  • Последний: cartblansh
Статистика
  • Всего сообщений: 81
  • Всего тем: 19
  • Онлайн сегодня: 1
  • Максимальный онлайн: 34
  • (Окт. 01, 2023, 18:24 )
Сейчас на форуме
Пользователи: 0
Гостей: 2
Всего: 2
2 гостей, 0 пользователей

Разделы

1с прибавить к дате период времени - секунда, минута. часы, дни...

Автор ass1s, Окт. 03, 2023, 00:03

« назад - далее »

ass1s

Есть ли в 1с готовая функция, которая прибавит к дате определенный период времени - часы, минуты, секунды, дни, кварталы и т.д?

Где Дэн?

Я встречал такие интересные функции в одном не типовом решении. Вроде работают как часы:

Функция ДобавитьКДате(Знач Дата1, Знач Количество, Знач Период) Экспорт
   
    Шаг = Новый Структура("Год, Квартал, Месяц, Неделя, День, Час, Минута, Секунда",
        12, 3, 1, - 604800, - 86400, - 3600, - 60, - 1);
    Возврат ?(Шаг[Период] > 0, ДобавитьМесяц(Дата1, Количество * Шаг[Период]), Дата1 - Количество * Шаг[Период]);
   
КонецФункции

И как пример разность дат (в указанной единице времени):

Функция РазностьДат(Знач Дата1, Знач Дата2, Знач Период) Экспорт
   
    Шаг = Новый Структура("Год, Квартал, Месяц, Неделя, День, Час, Минута, Секунда",
        12, 3, 1, - 604800, - 86400, - 3600, - 60, - 1);
    Возврат Цел(?(Шаг[Период] > 0, Год(Дата2) * 12 + Месяц(Дата2) - 1, '00010101' - Дата2) / Шаг[Период])
          - Цел(?(Шаг[Период] > 0, Год(Дата1) * 12 + Месяц(Дата1) - 1, '00010101' - Дата1) / Шаг[Период]);
         
КонецФункции

ass1s


Где Дэн?


Чат Полянка

Cheese_0:
2023-10-12, 12:25:42
Datamax особенно
Где Дэн?:
2023-10-12, 09:20:15
этикетки и принтеры это то еще удовольствие  ;D
Cheese_0:
2023-10-11, 12:07:24
Уууу я вернулся, 2 дня принтер для этикеток пытался настроить хахаха
Где Дэн?:
2023-10-09, 20:58:50
Потихоньку наполняю форум полезными темами и решениями, с которыми сам сталкиваюсь на практике.
Где Дэн?:
2023-10-08, 19:36:57
видос закинул веселый) на ютубчике - немного творчества в выходные
Где Дэн?:
2023-10-04, 23:22:59
Для незарегистрированных пользователей так же будет потихонечку пополняться пул обработок, доступных для скачивания и без регистрации....
Где Дэн?:
2023-10-04, 22:37:42
да, есть такое. Пускай здесь пока побудет - вроде не мешается и если что то можно блок с ним свернуть...что бы глаза не мазолил
Cheese_0:
2023-10-04, 22:35:59
Сразу чат стал удобнее
Где Дэн?:
2023-10-04, 22:33:31
файлы немного накидываю для зарегистрированных пользователей. Думаю скоро весь пул файлов полезных что есть здесь будет
Где Дэн?:
2023-10-04, 22:32:44
че за звезды? В принципе если так поговорить кому надо или спросить по быстрому оперативно - при наличии народа на сайте, то чат думаю удобно
Где Дэн?:
2023-10-04, 22:29:34
Да, перетащил его в другой блок) ;D
Cheese_0:
2023-10-04, 22:27:17
Где 5 звезд поставить?
Cheese_0:
2023-10-04, 22:27:06
ооооо чатик стал больше
Где Дэн?:
2023-10-04, 07:40:10
Что бы научиться программировать нужно всего лишь раз в день по утрам... ;D ;D
1cgod:
2023-10-03, 22:56:39
как же приятен форум без всяких реклам)