Decimal and Integer

Discussão em 'Comandos Básicos' iniciado por fdantas, Janeiro 26, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Entendendo a manipulacao de tipos numéricos no Progress.
    Lembrando que aqui só temos exemplos básicos

    Código:
    DEF VAR i AS INT.
    DEF VAR d AS DEC.
    
    
    i = 60 * 100000000.
    d =  60 * 100000000 * 0.0354.
    
    DISPLAY i FORMAT ">>>,>>>,>>>,>>>,>>9"
            d FORMAT ">>>,>>>,>>>,>>>,>>9.9999".
    MESSAGE  "NOK" VIEW-AS ALERT-BOX.
    d = ROUND(d,3).
    
    DISPLAY         
            d FORMAT ">>>,>>>,>>>,>>>,>>9.9999".
    MESSAGE  "NOK" VIEW-AS ALERT-BOX.
    /*d = ROUND(d,2).*/
    
    DISPLAY         
            d FORMAT ">>>,>>>,>>>,>>>,>>9.9999".
    MESSAGE  "NOK" VIEW-AS ALERT-BOX.
    /*d = ROUND(d,2).*/
    d = 60.0 * 100000000.
    
    DISPLAY d FORMAT ">>>,>>>,>>>,>>>,>>9" WITH FRAME x.
    
    i = 60.0 * 100000000.0.
    
    DISPLAY i FORMAT ">>>,>>>,>>>,>>>,>>9.9" WITH FRAME x.
    
    /* o valor max integer 2,147,483,647 */
    /* o valor max decimal 50 digitos,10 digitos.*/
    
    /* decimal que recebe valor inteiro armazena inteiro */
    /* decimal que recebe valor decimal tem que ser < 50 digitos,10 digitos. */
    
    /* inteiro que recebe valor inteiro tem que ser < 2,147,483,647 */
    /* inteiro que recebe valor decimal tem que ser < 2,147,483,647 */
    
    /* decimal * inteiro retorna decimal */ 
    /* inteiro * inteiro retorna inteiro */
    /* decimal * decimal retorna decinal */
    
    /* sempre que a variavel for decimal usar na constante ".0".*/
    

Compartilhe esta Página