Protheus :: Advpl "BUG" na Função: NToL

User Function Foo() ConOut( "Bug na nToL" ) ConOut( "NToL( -1000000000 )" , NToL( -1000000000 ) ) ConOut( "NToL( -100000000 )" , NToL( -100000000 ) ) ConOut( "NToL( -10000000 )" , NToL( -10000000 ) ) ConOut( "NToL( -1000000 )" , NToL( -1000000 ) ) ConOut( "NToL( -100000 )" , NToL( -100000 ) ) ConOut( "NToL( -10000 )" , NToL( -10000 ) ) ConOut( "NToL( -1000 )" , NToL( -1000 ) ) ConOut( "NToL( -100 )" , NToL( -100 ) ) ConOut( "NToL( -10 )" , NToL( -10 ) ) ConOut( "NToL( -1 )" , NToL( -1 ) ) ConOut( "NToL( 0 )" , NToL( 0 ) ) ConOut( "NToL( 1 )" , NToL( 1 ) ) ConOut( "NToL( 10 )" , NToL( 10 ) ) ConOut( "NToL( 100 )" , NToL( 100 ) ) ConOut( "NToL( 1000 )" , NToL( 1000 ) ) ConOut( "NToL( 10000 )" , NToL( 10000 ) ) ConOut( "NToL( 100000 )" , NToL( 100000 ) ) ConOut( "NToL( 1000000 )" , NToL( 1000000 ) ) ConOut( "NToL( 10000000 )" , NToL( 10000000 ) ) ConOut( "NToL( 100000000 )" , NToL( 100000000 ) ) ConOut( "NToL( 1000000000 )" , NToL( 1000000000 ) ) Return( NIL )

Bug na nToL NToL( -1000000000 ) .F. NToL( -100000000 ) .F. NToL( -10000000 ) .T. NToL( -1000000 ) .T. NToL( -100000 ) .T. NToL( -10000 ) .T. NToL( -1000 ) .T. NToL( -100 ) .T. NToL( -10 ) .T. NToL( -1 ) .T. NToL( 0 ) .F. NToL( 1 ) .T. NToL( 10 ) .T. NToL( 100 ) .T. NToL( 1000 ) .T. NToL( 10000 ) .T. NToL( 100000 ) .T. NToL( 1000000 ) .T. NToL( 10000000 ) .T. NToL( 100000000 ) .F. NToL( 1000000000 ) .F.

Sem comentários. Para maiores referências consulte: Função: NToL


[]s иαldσ dj