вычесть » Поиск

Результаты по ключевому слову: вычесть

Сложение дат в запросе (Прибавить к дате секунды, дни) - ДобавитьКДате

При разработке отчетов бывает необходимо в запросе прибавить к дате несколько секунд, дней, месяцев.

Для этого имеется встроенная функция ДобавитьКДате

Синтаксис функции:

ДОБАВИТЬКДАТЕ(<Исходная Дата>, <Единица Измерения>, <Количество>)

Исходная дата – дата, к которой необходимо прибавить или вычесть требуемое количество временных единиц.
Единица измерения – параметр, который определяет единицу прибавляемого времени. Возможные значения: Год, Квартал, Месяц, День, Час, Минута, Секунда.
Количество – количество временных единиц, которых необходимо прибавить к исходному значению.

Код 1C v 8.2 УП

 // Разные примеры использования

// Минута

ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2999, 1, 1, 0, 0, 0), Минута, 30) КАК Часы,

// Час

ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2999, 1, 1, 0, 0, 0), ЧАС, ЧАС(СтатусыУслуг.ЗапланированноеВремя)) КАК Часы

// Месяц

ДобавитьКДате(ДатаВремя(2002, 10, 12, 10, 15, 34), "Месяц", 1)

Рабочий код:

Код 1C v 8.2 УП

 Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ИсточникиRSS.Ссылка КАК Ссылка

	|ИЗ

	|	Справочник.ИсточникиRSS КАК ИсточникиRSS

	|ГДЕ

	|	ИсточникиRSS.Использовать

	|	И ДОБАВИТЬКДАТЕ(ИсточникиRSS.ДатаПоследнегоОбновления, СЕКУНДА, ИсточникиRSS.ПериодОбновленияВСекундах) <ТекДата"; 	

	Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());

	РезультатЗапроса = Запрос.Выполнить();

	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

	

	КонецЦикла;

Категория: Запросы

Горячие клавиши 1С Пользователю [ Предприятие] Категория: 1С Общие вопросы - Обычные формы

Горячие клавиши 1С Разработчику [ Конфигуратор ] Категория: 1С Общие вопросы - Обычные формы

Функция РАЗНОСТЬДАТ

РАЗНОСТЬДАТ(<Выражение>, <Выражение>, Секунда | Минута | Час | День | Месяц | Квартал | Год)
В качестве первого параметра передается выражение, значение которого необходимо вычесть из значения второго параметра.
В качестве второго параметра функции передается выражение, из которого необходимо вычесть значение первого параметра.
Третий параметр содержит единицу измерения, в которой необходимо получить результат функции. В качестве третьего параметра можно использовать следующие значения: Секунда, Минута, Час, День, Месяц, Квартал, Год. При расчете результата функция игнорирует единицы измерения, которые меньше, чем указанная в данном параметре единица.

Например, если в качестве третьего параметра указать Час, то при расчете результата будут игнорироваться минуты и секунды, присутствующие в первых двух параметрах. Если же в третьем параметре указать Месяц, то игнорироваться будут дни, часы, минуты и секунды.

Рассмотрим, какие значения будет возвращать функция при различных значениях третьего параметра:

Код 1C v 8.х

 

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), СЕКУНДА) // 82 652

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), МИНУТА) // 1 378

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ЧАС) // 23

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ДЕНЬ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), МЕСЯЦ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), КВАРТАЛ) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 12, 31, 10, 20, 34), ДАТАВРЕМЯ(2003, 01, 01, 9, 18, 06), ГОД) // 1

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), СЕКУНДА) // 31 535 999

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), МИНУТА) // 525 599

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ЧАС) // 8 759

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ДЕНЬ) // 364

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), МЕСЯЦ) // 11

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), КВАРТАЛ) // 3

РАЗНОСТЬДАТ(ДАТАВРЕМЯ(2002, 01, 01, 0, 0, 0), ДАТАВРЕМЯ(2002, 12, 31, 23, 59, 59), ГОД) // 0

Категория: Запросы

Процедура вычисляет количество лет, месяцев и дней между двумя датами

Код 1C v 8.х

 

// Процедура вычисляет количество лет, месяцев и дней между двумя датами

//

// Параметры

//  Дата1	– дата, первая дата (более поздняя, часто текущая, стаж определяется по состоянию на эту дату)

//  Дата2	– дата, вторая дата (ранняя дата, с нее начинается ""течение"" стажа)

//  Лет		– Число, в этот параметр будет записано кол-во лет между двумя датами (Дата1-Дата2)

//  Месяцев	– Число, в этот параметр будет записано кол-во месяцев между двумя датами (Дата1-Дата2)

//  Дней	– Число, в этот параметр будет записано кол-во дней между двумя датами (Дата1-Дата2)

//

Процедура РазобратьРазностьДат(Дата1, Дата2, Лет = 0, Месяцев = 0, Дней = 0) Экспорт

	

	Лет		= 0;

	Месяцев	= 0;

	Дней	= 0;

	Если Дата1 > Дата2 Тогда

		

		ВременнаяДата = Дата1;

		Если День(ВременнаяДата) < День(Дата2) Тогда

			Дней = (ВременнаяДата - ДобавитьМесяц(ВременнаяДата,-1))/86400;

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-1);

		КонецЕсли;

		Если Месяц(ВременнаяДата) < Месяц(Дата2) Тогда

			ВременнаяДата = ДобавитьМесяц(ВременнаяДата,-12);

			Месяцев = 12;

		КонецЕсли;

		Лет		= Макс(			 Год(ВременнаяДата)		- Год(Дата2),	0);

		Месяцев	= Макс(Месяцев	+ Месяц(ВременнаяДата)	- Месяц(Дата2),	0);

		Дней	= Макс(Дней		+ День(ВременнаяДата)	- День(Дата2),	0);

		

		// скорректируем отображаемое значение, если ""вмешалось"" разное количество дней в месяцах

		Если Дата2 <> (ДобавитьМесяц(Дата1,-Лет * 12-Месяцев)-Дней * 86400) Тогда

			Дней = Дней + (День(КонецМесяца(Дата2)) - День(НачалоМесяца(Дата2))) - (День(КонецМесяца(ДобавитьМесяц(Дата1,-1))) - День(НачалоМесяца(ДобавитьМесяц(Дата1,-1))));

		КонецЕсли;

		

	КонецЕсли;



КонецПроцедуры

Вычисление периодов в формате ГГММДД. Вычисление дат по формуле Дата + ГГММДД.
Примечание: Даты передаем в виде 'ДД.ММ.ГГГГ', периоды - "ГГ-ММ-ДД".
Пользуйтесь. arithmometr

Код 1C v 7.x

 

//********************************************************

//Назначение: преобразует строку в число путем преобразования каждого символа

//по правилам преобразования типов

// <стр> - строка;

//

//Примечание:

//

Функция зпГлСтрокуВЧисло(стр) Экспорт

    стр1 = СокрЛП(стр);

    Чис1 = "";

    Для х = 1 По СтрДлина(стр1) Цикл

        Чис1 = Чис1 + Число(Сред(стр1,х,1));

    КонецЦикла;

    Чис = Число(Чис1);

    Возврат Чис;

КонецФункции // зпГлСтрокуВЧисло(стр)

//********************************************************

// Функция зпГлВычислитьСрок(Аргум1,Аргум2="",Парам=777)

// <Аргум1> - Дата1 или Срок1

// <Аргум2> - Дата2 или Срок2

// <Срок> - Период в формате ГГ-ММ-ДД

// Параметры: '0' - ЗнВозврата = Дата2-Дата1 - вичислить период между датами в формате ГГ-ММ-ДД

//         '-1' - ЗнВозврата = Дата1-Срок - вычесть период

//         '1' - ЗнВозврата = Дата1+Срок - добавить период

//         Иначе ЗнВозврата = Правильный срок

//         'П' - ЗнВозврата = Правильный срок прописью

//         'К' - ЗнВозврата = Правильный срок прописью краткий формат

//         '+' - ЗнВозврата = Срок1+Срок2 - сложить периоды

////////         '-' - ЗнВозврата = Срок1-Срок2 - вычесть периоды

//

// Примечание: Ст.241-1 КЗоТ Украины

//

Функция зпГлВычислитьСрок(Аргум1,Аргум2="",Парам="") Экспорт

    Перем ЗнВозврата;



    Если (Парам=0) Тогда

        Дата1 = Мин(Дата(Аргум1),Дата(Аргум2));

        Дата2 = Макс(Дата(Аргум1),Дата(Аргум2));



        Мес = (ДатаГод(Дата2) - ДатаГод(Дата1))* 12 + (ДатаМесяц(Дата2) - ДатаМесяц(Дата1));

        Дни = ДатаЧисло(Дата2) - ДатаЧисло(Дата1);



        Если (Дни < 0) Тогда

            Мес = Мес - 1;

            Дни = Дни + ДатаЧисло(КонМесяца(Дата1));

        КонецЕсли;

        Если (Дни >= ДатаЧисло(КонМесяца(Дата2))) и (Дата2 = КонМесяца(Дата2)) Тогда

            Мес = Мес + 1;

            Дни = 0;

        КонецЕсли;



        Лет = Цел(Мес/12);

        Мес = Мес - Лет* 12;



        ЗнВозврата = Формат(Лет,"Ч(0)2.0")+"-"+Формат(Мес,"Ч(0)2.0")+"-"+Формат(Дни,"Ч(0)2.0");

    ИначеЕсли (Число(Парам)*Число(Парам)=1) Тогда

        Дата1 = Дата(Аргум1);

        Аргум2 = зпГлВычислитьСрок(Аргум2);

        Срок = Аргум2;



        Мес = Число(Лев(Срок,2))* 12 + Число(Сред(Срок,4,2));

        Дни = Число(Прав(Срок,2));



        Дата2 = ДобавитьМесяц(Дата1,Парам*Мес);



        Если (Дата1 = КонМесяца(Дата1)) Тогда

            Дни = Мин(ДатаЧисло(КонМесяца(Дата2)) - 1, Дни);

        ИначеЕсли (Дни >= ДатаЧисло(КонМесяца(Дата2))*((1-Парам)/2) - Парам*ДатаЧисло(Дата2)) Тогда

            Дни = Мин(ДатаЧисло(КонМесяца(ДобавитьМесяц(Дата2,1))) - 1, Дни);

        КонецЕсли;



        ЗнВозврата = Дата2 + Парам*Дни;

    Иначе

        Если (Найти(Парам, "+") > 0) Тогда

            Срок1 = зпГлСтрокуВЧисло(СтрЗаменить(Аргум1+".","-",""))/10;

            Срок2 = зпГлСтрокуВЧисло(СтрЗаменить(Аргум2+".","-",""))/10;



            Дни = Срок1%100 + Срок2%100;

            Мес = Цел((Срок1%10000 + Срок2%10000 - Дни)/1000);

            Лет = Цел(Срок1/10000) + Цел(Срок2/10000);



            Мес = Мес + Цел(Дни/30);

            Дни = Дни%30;

            Лет = Лет + Цел(Мес/12);

            Мес = Мес%12;

        Иначе

            Срок = зпГлСтрокуВЧисло(СтрЗаменить(Аргум1+".","-",""))/10;

            Мес = Цел(Срок/100) - Цел(Срок/10000)*(100-12);

            Дни = Мин(Срок - Цел(Срок/100)* 100, 30);

            Лет = Цел(Мес/12);

            Мес = Мес - Лет* 12;

        КонецЕсли;



        Если (Найти(Парам, "П") > 0) Тогда

            ЗнВозврата = "років "+Лет+", місяців "+Мес+", днів "+Дни;

        ИначеЕсли (Найти(Парам, "К") > 0) Тогда

            ЗнВозврата = ""+Лет+"р."+Мес+"м."+Дни+"д.";

        Иначе

            ЗнВозврата = Формат(Лет,"Ч(0)2.0")+"-"+Формат(Мес,"Ч(0)2.0")+"-"+Формат(Дни,"Ч(0)2.0");

        КонецЕсли;

    КонецЕсли;



    Возврат ЗнВозврата;

КонецФункции

Категория: Работа с Датами (Временем)