Gedemin TLB.IgsGSFunction.MulDiv
Материал из GedeminWiki
From Gedemin TLB.pas
function MulDiv(ANumber: Double; ANumerator: Double; ADenominator: Double; ARoundMethod: Integer; ADecPlaces: Integer): Double; safecall;
Unit: Gedemin TLB
Type: function
Visibility: public
Member Of: IgsGSFunction
Описание
Делит произведение двух чисел на третье и возвращает округленный результат.
Параметры
- ANumber
- Число.
- ANumerator
- Множитель.
- ADenominator
- Делитель.
- ARoundMethod
- Метод округления. 0 -- без округления. 1 -- обычное округление, половина округляется до следующей целой единицы. 2 -- разряды свыше ADecPlaces откидываются. 3 -- банковское (статистическое) округление, половина окгругляется в сторону четного значения. 4 -- разряды свыше ADecPlaces округляются до целой единицы.
- ADecPlaces
- количество знаков после запятой. Используется, если задано округление числа.
Пример использования в макросах:
Option Explicit Sub Macros ' цену умножаем на количество и на ставку налога ' обычное округление, 2 знака после запятой MsgBox GS.MulDiv(313.57, 0.15 * 0.2, 1, 1, 2) ' тоже самое, но сумму налога выражаем в целых тысячах рублей MsgBox GS.MulDiv(313.57, 0.15 * 0.2, 1000, 1, 0) End Sub