VBScript округлить до 2 десятичных знаков с помощью Ccur

Question

Я использую CCur() вместо CDbl() как ответили на этот вопрос:

математическое выражение vbscript не работает

Но я хочу отобразить сумму в десятичных разрядах, например, 3 должно быть 3.00, а 3.555 должно быть 3.55.

Как я могу добиться этого с помощью функции CCur()?

Answer 1

CCur() - это функция "Преобразовать в валюту", а не функция форматирования чисел.

Вместо этого используйте следующие функции:

FormatNumber (number [, DecimalPlaces [, IncludeLeadingZero [, UseParenthesis [, GroupDigits]]]])

или же

FormatCurrency (Expression [, NumDigAfterDec [, IncLeadingDig [, UseParForNegNum [, GroupDig]]]])

номер: номер для форматирования.
DecimalPlaces: количество цифр, отображаемых после десятичной точки.
IncludeLeadingZero: включает начальный ноль для чисел <1 и> -1
UseParenthesis: показать отрицательные числа в круглых скобках (500) = -500
GroupDigits: группировать большие числа с запятыми (или региональный разделитель)

Answer 2

Исправить до 2 знаков после запятой без округления;

curvar = int(curvar  * 100) / 100

Отформатировать для отображения (3 -> "3.00":

curvar  = formatnumber(int(curvar * 100) / 100, 2)