Page 1 of 1

Error en un cociente

Posted: Thu Feb 16, 2017 8:05 pm
by Vikthor.Thomas
Hola, buen día

Estoy usando FWH64 Dic 2016, Harbour 3.2.0Dev(r1603181642) y Bcc 7.1

La siguiente división 223.2/.8 me devuelve asteriscos al momento de mostrar el resultado en pantalla o enviar a imprimir.
El registro en la tabla lo hace correctamente.
Lo resolví usando la función Round() a dos decimales.

A alguien más le ha sucedido alguna situación parecida ?

Saludos

Re: Error en un cociente

Posted: Fri Feb 17, 2017 10:08 am
by Carlos Mora
Estimado Victhor

¿Como estás mostrando el resultado en la pantalla? El problema no tiene pinta de ser del cociente propiamente dicho, sino del formateo del número al pasarse a caracteres.
¿Puedes reproducir el error en un ejemplo reducido?

Un saludo

Re: Error en un cociente

Posted: Fri Feb 17, 2017 11:59 am
by karinha

Code: Select all

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------//

function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "3D Division"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION DIVISION()

   SET MESSAGE OF oWnd TO "3D Division" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

function DIVISION()

  LOCAL nValor     := 0.00
  LOCAL nDivision  := 0.00
  LOCAL nResultado := 0.00

  nValor    :=  223.20
  nDivision :=  000.80

  nResultado := ( nValor ) / ( .8 ) / 100  // 279.00 o 2.79 ?

  ? nResultado

  // ? Round( nResultado, 2 )

return nil