Определяет символы национальной валюты или соответственно место их расположения относительно числовой величины, представленной в форматах: numeric, currency, float, или double.

SET CURRENCY TO [cCurrencySymbol]
-or-
SET CURRENCY LEFT | RIGHT

Параметры

cCurrencySymbol

Определяет символьное выражение, описывающее национальную валюту; может иметь не более 9-ти символов. Использование команды SET CURRENCY TO без параметра cCurrencySymbol устанавливает символ валюты по-умолчанию ($) - доллар. Вы можете также задать специальный символ валюты, используя комбинацию клавиш: Alt+nnn. Комбинация Alt+0128 определяет знак денгежной единицы Евро, но это зависит от поддержки соответствующего шрифта Windows. Данную настройку сожно осуществит также в  Закладке Regional   Диалогового бокса Options .
LEFT

(по-умолчанию) символ денежной единицы располагается слева от числового выражения.
RIGHT

Позиция денежной единицы определена справа от числового выражения.

Комментарии

Знак денежной единицы может быть задан также в опциях FUNCTION или PICTURE соответственно команд @ ... SAY  и @ ... GET, для этого используется соответствующий формат $.

Установка команды SET CURRENCY действует только в текущей рабочей сессии.

Пример

Представленный пример демонстрирует использование символов DM, как обозначение соответствующей валюты. Если Вы используете опцию PICTURE для отображения соответствующей валюты, перед символом валюты ($) необходимо указать специальный символ форматирования  @  (см. пример..@ 2,2...).

  Копировать Код
STORE SET('CURRENCY') TO gcCurrPosit
STORE 1234.56 TO gnDollarAmnt
CLEAR
SET CURRENCY TO 'DM'
@ 2,2 SAY gnDollarAmnt PICTURE '@$99,999.99'
IF gcCurrPosit = 'LEFT'
   SET CURRENCY RIGHT
ELSE
   SET CURRENCY LEFT
ENDIF
@ 4,2 SAY gnDollarAmnt FUNCTION '$99,999.99'

См. также