мя%датами » Поиск

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

Как посчитать разницу между двумя датами? Категория: Работа с Датами (Временем)

Подсчет реального количества месяцев между датами, включая начало и конец месяца Категория: Работа с Датами (Временем)

Как вычислить разницу между двумя датами в часах и минутах Категория: Работа с Датами (Временем)

Как вычислить разницу между двумя датами в днях Категория: Работа с Датами (Временем)

Формат, функция форматирования значений

Код 1C v 8.х

 
//Функция формирует удобное для чтения представление значений.

// Примеры форматирования чисел
ЗначФормат = Формат(123456.789, "ЧЦ=10; ЧДЦ=2");      // ЗначФормат = "123 456,79"
ЗначФормат = Формат(123456.789, "ЧГ=0; ЧДЦ=2");      // ЗначФормат = "123456,79"
ЗначФормат = Формат(123456.789, "ЧРД='-'");           // ЗначФормат = "123 456-789"
ЗначФормат = Формат(-123456.789, "ЧО=0");             // ЗначФормат = "(123 456,789)";
ЗначФормат = Формат(13, "ЧЦ=5; ЧВН=; ЧГ=0");      // ЗначФормат = "00013";

//В 8 версии для вывовода чисел прописью используется ЧислоПрописью
ЧислоПрописью(Сумма, "L=ru_RU", Валюта.ПараметрыПрописиНаРусском)  
ЧислоПрописью(1457.25,"L=en_US","dollar, dollars, cent, cents, 2"); // One thousand four hundreds fifty seven dollars 25 cents. 
ЧислоПрописью(Сумма,"Рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");

//Пример представления Числа в виде Даты
ЗначФормат = Формат(25021949, "ЧЦ=8; ЧРГ=.; ЧВН=; ЧГ=4,2,0");      // ЗначФормат = "25.02.1949"

// Примеры форматирования дат
ЗначФормат = Формат('20020820153309', "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""");     // ЗначФормат = "20 августа 2002 г. 15:33:09"
ЗначФормат = Формат('20020820153309', "ДФ=""дд/ММ-гггг""");                     // ЗначФормат = "20/08-2002"
ЗначФормат = Формат('20020820153309', "ДФ='q ""кв."" yyyy'"); 		            // ЗначФормат = "3 кв. 2002";
ЗначФормат = Формат('20020820153309', "ДФ='""Итого"" q ""квартал""'") ;	   // ЗначФормат = "Итого 3 квартал";
ЗначФормат = Формат('20020820153309', "ДФ='ММММ гггг'");  		            // ЗначФормат = "Август 2002 г.";
ЗначФормат = Формат('20020820153309', "ДЛФ=ДД");                                // ЗначФормат = "20 августа 2002 г.";
ЗначФормат = Формат('20020820153309', "ДЛФ=Д");                                 // ЗначФормат = "20.08.2002";
ЗначФормат = Формат('20020820153309', "ДЛФ=В");                                 // ЗначФормат = "15:33:09";

ЗначФормат = Формат('20020820153309', "ДФ=HHmmssyyyyMMdd");                                 // ЗначФормат = "15330920020820";
ЗначФормат = Формат('20020820153309', "ДФ=HH:mm:ss yyyy MM dd");                                 // Время 24 часа  - ЗначФормат = "15:33:09 2002 08 20";
ЗначФормат = Формат('20020820153309', "ДФ=hh:mm:ss yyyy MM dd");                                 // Время 12 часов - ЗначФормат = "03:33:09 2002 08 20";

Формат(Дата(2009, 1, 1), "ДЛФ=DD") + ", " + ОпределитьДеньНедели(ДеньНедели(Дата(2009, 1, 1)));   // 1 января 2009 г., Четверг (Смотрите в "Работаем с Датами" Функция Определить день недели)
Формат(Дата(2009, 1, 1), "ДФ=ММММ") + ", " + Формат(Дата(2009, 1, 1), "ДФ=yyyy") + " г.";         // Январь, 2009 г.
Формат(НачалоНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г. - " + Формат(КонецНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г."; // 29 декабря 2008 г. - 04 января 2009 г.

// ДЕКАДУ нельзя вывести через формат, но можно так:
Строка(Цел(День(Дата('20020820153309')) / 10) + 1)+" декада"  = 2 декада

// Примеры форматирования логических выражений
ЗначФормат = Формат(Истина, "БЛ=Отсутствует; БИ=Доступен");                     // ЗначФормат = "Доступен";
ЗначФормат = Формат(Ложь, "БЛ=Нет; БИ=Да");                     				// ЗначФормат = "Нет";

Код 1C v 7.x

 
// Символы, определяющие тип форматируемых данных: 
// Ч — число (Англоязычный синоним: N)  
ЗначФормат = Формат(123.15, "Ч(0)10.2") // 0000123.15
Долг = Строка(Формат(Долг(), "Ч12.2")) + " " + Валюта.Сокр_назв;

// Возможен вывод денежных величин и просто целых чисел прописью. В этом случае форматная строка должна иметь вид "ЧПДС".
// Наличие буквы "П" (в английском варианте для аналогичной цели используется буква "S") определяет сам факт вывода числа прописью. 
// Символ "Д" (в английском варианте — "M") обозначает вывод денежной величины и является необязательным. 
// Символ "С" (в английском варианте — "H") также необязателен и означает вывод с копейками.
ИтогоСуммаПрописью  = Формат(Итог("Сумма"), "ЧПДС");
КоличествоНаименованийПрописью = Формат(КоличествоСтрок(), "ЧП");

// С — строка (Англоязычный синоним: S) 
// "Сn", где n — положительное целое число определяющее ширину поля, в котором будет размещаться строка. 
// В случае, если ширина поля превосходит длину строки сформатированная строка будет дополнена справа пробелами, если же ширина поля меньше длины строки — строка будет усечена справа.


// Д — дата (Англоязычный синоним: D)
ДатаДокумента = Формат(Док.ДатаДок,"Д ДД.ММ.ГГ");  //12.03.08
ДатаДокумента = Формат("01.01.1999", "Д(0)ДДММММГГГГ"); // 01 Января 1999 г.

//Для форматирования даты используется форматная строка вида "Д<ПодстрокаФормата>", где <Подстрока Формата> представляет собой строку, определяющую вид сформатированного представления даты:
//DDMMYY (ДДММГГ)  дата в виде ДД.ММ.ГГ 
//DDMMYYYY (ДДММГГГГ)  дата в виде ДД.ММ.ГГГГ 
//DDMMMMYYYY (ДДММММГГГГ)  дата в виде ДД месяц прописью ГГГГ 
//(0)DDMMMMYYYY ((0)ДДММММГГГГ) этот формат представляет собой вариант предыдущего формата с тем отличием, что число месяца всегда выводится двумя цифрами, т. е. для чисел меньших 10 спереди будет добавлен 0. Например: Формат('01.01.1999', ' 'Д(0)ДДММММГГГГ' ') = 01 Января 1999 г. 
//MMMMYYYY (ММММГГГГ) дата в виде месяц прописью ГГГГ 
//MMMMYY (ММММГГ) дата в виде месяц прописью ГГ 
//ММММ (ММММ) дата в виде месяц прописью 
//QQQQYYYY (ККККГГГГ) дата в виде N квартала ГГГГ 
//QQQQYY (ККККГГ) дата в виде N квартала ГГ 
//QQQQ дата в виде N квартала 
//YYYYMMDD (ГГГГММДД) дата в виде ГГГГММДД, то есть дата '10.11.1998' будет представлена как строка "19981110" 
//WWWW (HHHH) выводит наименование дня недели, соответствующее указанной дате. Наименования дней недели берутся из файла прописи.

Категория: Встроенные Функции

Как вычислить разницу между двумя датами в месяцах Категория: Работа с Датами (Временем)

Количество месяцев и дней между 2-мя датами Категория: Работа с Датами (Временем)

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

Код 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");
        КонецЕсли;
    КонецЕсли;

    Возврат ЗнВозврата;
КонецФункции

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