SPELLNM: Como Escrever por Extenso uma Quantidade em Dólares

A função SPELLNM escreve por extenso uma string alfanumérica ou um valor numérico que contém duas posições decimais, como dólares e cents. Por exemplo, o valor 32.50 é TRINTA E DOIS DÓLARES E CINQUENTA CENTAVOS.

Sintaxe: Como Escrever por extenso uma quantidade em dólares

SPELLNM(outlength, number, output)

onde:

outlength

Inteiro

É o número de caracteres em output ou um campo que contém o comprimento.

Se você sabe o valor máximo de number, utilize a tabela a seguir para determinar o valor de outlength:

Se o número é menor que...	...outlength deve ser
$10	37
$100	45
$1,000	59
$10,000	74
$100,000	82
$1,000,000	96

number

Alfanuméricos ou Numéricos (9.2)

É o número a ser escrito por extenso. Este valor deve conter duas casas decimais.

saída

Alfanumérico

É o nome do campo que contém o resultado ou o formato do valor de saída posto entre aspas simples.

Topo da página

Exemplo: Como Escrever por Extenso uma Quantidade em Dólares

SPELLNM escreve por extenso os valores em CURR_SAL e armazena o resultado em AMT_IN_WORDS:

TABLE FILE EMPLOYEE
PRINT CURR_SAL AND COMPUTE
AMT_IN_WORDS/A82 = SPELLNM(82, CURR_SAL, AMT_IN_WORDS);
WHERE DEPARTMENT EQ 'MIS'
END

A saída é:

CURR_SAL    AMT_IN_WORDS
--------    ------------

$13,200.00  THIRTEEN THOUSAND TWO HUNDRED DOLLARS AND NO CENTS
$18,480.00  EIGHTEEN THOUSAND FOUR HUNDRED EIGHTY DOLLARS AND NO CENTS
$18,480.00  EIGHTEEN THOUSAND FOUR HUNDRED EIGHTY DOLLARS AND NO CENTS
$21,780.00  TWENTY-ONE THOUSAND SEVEN HUNDRED EIGHTY DOLLARS AND NO CENTS
$9,000.00   NINE THOUSAND DOLLARS AND NO CENTS
$27,062.00  TWENTY-SEVEN THOUSAND SIXTY-TWO DOLLARS AND NO CENTS