1С 8.3 Сколько процентов число от числа
Данные > Примеры кода 1С > 1С 8.3 Математика, числа
Перейти в раздел примеры кода 1С 8.3:
Рассчитать процент от числа в 1С 8.3:
// Сколько процентов число от числа
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/151
//
// Параметры:
// Число - Число
// ОтЧисла - Число
// ОкруглятьДо - Число - Количество знаков округления, 0 - не требуется
//
// Возвращаемое значение:
// Число
//
// Пример:
// Процент = СколькоПроцентовЧислоОтЧисла(10, 100); // 10
// Процент = СколькоПроцентовЧислоОтЧисла(9, 69, 2); // 13.04
//
Функция СколькоПроцентовЧислоОтЧисла(Знач Число, Знач ОтЧисла, Знач ОкруглятьДо = 0) Экспорт
Если ОтЧисла = 0 Тогда
Возврат 0;
КонецЕсли;
Результат = (Число / ОтЧисла) * 100;
Если ОкруглятьДо > 0 Тогда
Результат = Окр(Результат, ОкруглятьДо);
КонецЕсли;
Возврат Результат;
КонецФункции
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/151
//
// Параметры:
// Число - Число
// ОтЧисла - Число
// ОкруглятьДо - Число - Количество знаков округления, 0 - не требуется
//
// Возвращаемое значение:
// Число
//
// Пример:
// Процент = СколькоПроцентовЧислоОтЧисла(10, 100); // 10
// Процент = СколькоПроцентовЧислоОтЧисла(9, 69, 2); // 13.04
//
Функция СколькоПроцентовЧислоОтЧисла(Знач Число, Знач ОтЧисла, Знач ОкруглятьДо = 0) Экспорт
Если ОтЧисла = 0 Тогда
Возврат 0;
КонецЕсли;
Результат = (Число / ОтЧисла) * 100;
Если ОкруглятьДо > 0 Тогда
Результат = Окр(Результат, ОкруглятьДо);
КонецЕсли;
Возврат Результат;
КонецФункции
// MIT License
// Copyright (c) 2024 SeiOkami
//
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files
// (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify,
// merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
// The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник