problema extraño con get

[MOISES]

Hola:

Tengo un comportamiento muy extraño con get: cuando le metes el número 208605040000027483 lo redondea y lo convierte en 208605040000027500 al darle al TAB o al OK, y no sé por qué razón, pues yo no quiero nada de eso.

¿Alguien sabe por qué? Muchas gracias.

El código es:

// Testing GETs

#include "FiveWin.ch"

function Main()
LOCAL oDlg, oGet
LOCAL cCad := "Testing " // pad("Testing Gets",40)
LOCAL nNum := 0
LOCAL dDat := Date()

Set century On
Set Date Ansi
Set Date format "mm/dd/yyyy"

SET _3DLOOK ON

DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

@ 1.8, 2 SAY "Number:" OF oDlg
@ 2, 6 GET oGet VAR nNum OF oDlg SIZE 80, 10 PICTURE "99999999999999999999999999"


@ 3, 7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL


ACTIVATE DIALOG oDlg CENTERED

return nil

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

[QAZWSX2K]

creo no estoy seguro si se me salen los años que la longitud maxima en clipper de un numero son de 16 digitos, de hecho agarras un nuymero y lo conviertes a string y te da los 16 espacios, de todos modos no me creas mucho porque no estoy muy seguro

[MOISES]

Con números mayores funciona sin problemas. Lo que sucede es que algunas combinaciones numéricas, como la que he adjuntado, producen ese extrañísimo comportamiento.

[Carlos Mora]

Moises,

el comportamiento no es para nada extraño, es el esperado. El tipo numérico en Clipper/Harbour puede ser LONG o DOUBLE, segun sea el valor almacenado.
LONG tiene un rango de valores de -2147483648 al 2147483647.
http://es.wikipedia.org/wiki/Tipo_de_dato_entero

Superados los límites del LONG, el número se almacena como DOUBLE con las limitaciones del caso: Valor absoluto de 5.0 x 10^–324 a 1.7 x 10^308, con 15 o 16 dígitos significativos. En tu caso superas esos dígitos significativos, por lo que no puede representar los últimos de manera exacta y tiene el comportamiento que tu comentas.

http://es.wikipedia.org/wiki/Double

Un saludo,

Carlos.[/b]

[MOISES]

Carlos:

Muchas gracias por tu respuesta. La verdad, siempre tan atinado y experto en tus aportes al foro . Supongo que no podré hacer nada por arreglarlo, verdad?

Otra cosilla, ¿dónde puedo encontrar información del MIDAS- generador de informes?. Creo que es de Binguen, verdad?.

Muchas gracias por todo.

Un saludo

[Carlos Mora]

Hola Moises,

Con el tema del formato NUMERIC no hay mucho para hacer, no al menos de forma sencilla. Las soluciones que se me ocurren son un poco complejas y creo que no ameritan.

Respecto del MIDAS, Bingen prometió publicarlo pero aún no ha podido, está como todos, liado con el trabajo. Cualquier novedad paso el aviso.

Un saludo,

Carlos.

[MOISES]

Muchas gracias, Carlos.

Por cierto, ¿me podrías, por favor, indicar el email de Binguen a ?. La web de muniser no funciona.

Un saludo