Leer importe con 6 decimales de un XLS

[Enrrique Vertiz]

Estimados, buenas noches

Tengo un problema, necesito leer un archivo Excel, lo leo sin problemas con TExcel, pero al leer un campo numérico que tiene 6 decimales, solo me guarda el valor en la variable redondeado a 2 decimales, ejemplo :

nNec:=0.000000
nNec:=oHoja:Cells(nRow, 11):Value // En esta posición hay un valor en el Excel de : 3.105674768
? nNec
Me retorna 3.11, no conserva los decimales, gracias por su ayuda

[hmpaquito]

Sin probar, intenta asi:

Code: Select all  Expand view

#define _SET_DECIMALS 3
Local nSetDec:= Set( _SET_DECIMALS, 6 )

nNec:=0.000000
nNec:=oHoja:Cells(nRow, 11):Value // En esta posición hay un valor en el Excel de : 3.105674768
? nNec

Set( _SET_DECIMALS, nSetDec )
 

[Enrrique Vertiz]

Estimado, gracias, lo probe pero no funciona ...

Por favor alguien con alguna idea de como hacerlo, gracias

[cnavarro]

Además del SET_DECIMAL en 6, prueba con ROUND( nVal, 6 )

[Enrrique Vertiz]

Gracias Cristóbal

Aumentando el Round() funciono ...