Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

SET Decimals

Propósito

Determinar o número de casas decimais para variáveis numéricas.

Sintaxe

SET DECIMALS TO <numero> ON <var.N1> [,<var.N2>,...,<var.Nn>]

SET DECIMAL on | OFF

Argumentos

<numero>

representa o número de casas decimais.

<var.N>

representa a variável numérica.

Utilização

Definir o número de casas decimais para variáveis numéricas. Quando mais de uma variável for declarada estas devem ser separadas por uma "," (vírgula).

Este comando declara as variáveis com valor igual a 0 (ZERO), quando estas não tiverem sido declaradas anteriormente.

<numero> deve estar entre 1 e 17 inclusive.

SET DECIMALS por DEFAULT está desligado (OFF). Quando estiver ligado(ON) determina a declaração de casas decimais por atribuição.

Exemplo

O exemplo a seguir mostra-nos a definição de casas decimais para três variáveis numéricas e a redefinição para uma delas. Verifique o resultado atribuindo os valores as variáveis após o comando SET DECIMALS.

PROG

num1, num2, num3 = 123

SET DECIMALS TO 2 ON num1, num2

SET DECIMALS TO 5 ON num3

* num1, num2, num3 = 123     && "descomente" esta linha e note o resultado obtido

? num1

? num2

? num3

SET DECIMALS TO 2 ON num3

? num3

O exemplo a seguir mostra a utilização do comando SET DECIMALS ON|OFF.

PROG

SET DECIMALS ON

num1 = 1.02     && Mesmo que SET DECIMAL TO 2 ON num1

num2 = num1     && Mesmo que SET DECIMAL TO 2 ON num2

num3 = 123.00000     && Mesmo que SET DECIMAL TO 5 ON num3

? num1

? num2

? num3

SET DECIMALS TO 2 ON num3

? num3

Consulte

$FOAT, @ ... GET, @ ... SAY, SET ALIGN, SET POINT, STORE e TRANSFORM( )

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!