Gedemin TLB.IgsGSFunction.MulDiv

Текущая версия на 15:25, 2 августа 2016

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