Arrendodar Numero Decimal sempre pra +

Discussão em 'Progress 4GL' iniciado por Cneves, Novembro 23, 2011.

  1. Cneves

    Cneves Membro Participativo

    Preciso da ajuda de vocês para me ajudar como faz para arrendondar todos os numeros decimais para +.

    Alguém me ajuda?
    Cneves, Novembro 23, 2011
    #1
  2. jdchaves

    jdchaves Membro Participativo

    Bom dia,
    Em que momento ocorre isso?


    @x_jeferson
    facebook/jeferson
    EMAIL REMOVIDO! - Motivo: Recebendo Muito Span.
    skype: jeferson.de.chaves
    jdchaves, Novembro 23, 2011
    #2
  3. lima

    lima Membro Participativo

    Amigo, segue lógica abaixo.

    Código:
    DEFINE VARIABLE de-valor AS DECIMAL     NO-UNDO.
DEFINE VARIABLE i-valor AS INTEGER     NO-UNDO.

ASSIGN de-valor = 1.3
       i-valor = INT(de-valor).

IF i-valor < de-valor THEN
    ASSIGN i-valor = i-valor + 1.

MESSAGE i-valor
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    lima, Novembro 23, 2011
    #3
  4. jdchaves

    jdchaves Membro Participativo

    jdchaves, Novembro 23, 2011
    #4
  5. Cneves

    Cneves Membro Participativo

    Valeu Pessoal pela ajuda...

    Não tinha pensado dessa forma, mais acabei de solucionar também de outro jeito. Segue abaixo:

    Código:
    IF numero <> INT(numero) THEN
    ASSIGN numero = TRUNCATE((numero + 1),0).
    Cneves, Novembro 23, 2011
    #5

Compartilhe esta Página