S E T C U R R E N C Y 命 令

定义货币符号 并指定其显示位置

语 法

SET CURRENCY TO [ cCurrencySymbo l]

– 或 –

SET CURRENCY LEFT | RIGHT

参 数 描 述

cCurrencySymbol

指 定 作 为 货 币 符 号 的 字 符 串 最 长 可 以 是 9 个 字 符 使 用 不 带cCurrencySymbol 的 SET CURRENCY TO 命 令 可 以 将 货 币 符 号 重 置 为 默 认 的美 元 符 $

LEFT

默 认 值 将 货 币 符 号 放 在 货 币 值 的 左 边

RIGHT

将 货 币 符 号 放 在 货 币 值 的 右 边

说 明

在 FUNCTION 或 PICTURE 子句中包括 $ 代码时 在 @ ... SAY 生成的输出中以及在

@ ... GET 生成的文本框中都要显示货币符号

SET CURRENCY 在当前数据工作期有效

示 例

下面的示例中 在货币值的两边显示了货币符 DM 如果使用 PICTURE 来显示货币要确保在美元符前面加上 @

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'

请 参 阅

SET DATASESSION , SET DECIMALS , SET SEPARATOR , SET SYSFORMATS