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
Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты