Anular redondeo

[rdm]

Hola amigos, ¿alguien sabe como anular el redondeo cuando se realizan cálculos con VB?. Gracias por la lectura y quedo a la espera de alguna respuesta.

Saludos.

[David]

Depende del cálculo que estás haciendo. ¿A qué redondeo te refieres? Ya que si calculas con un Double no redondea (claro, salvo que lo que quieras con una precisión extremada)

[totigo]

A ver si entiendo lo que quieres. Quieres anular redondeo entonces trabaja con numeros enteros.

Ejemplo:

a = 1.55
a = int(1.55)

print a 'Imprime 1

[rdm]

aclaro un poquito el problema. Tengo un cálculo que arroja el siguiente resultado: 4.236 y estoy usando un format$ para mostrar dos dígitos decimales, no quiero que el segundo dígito se redondee, lo que quiero obtener es lisa y llanamente 4.23 y no un 4.24, producto del redondeo. Otro ejemplo, tengo una operación que hecha con la calculadora me tira 700.00 pesos, pero, producto de los decimales que intervienen en la operatoria, se me presenta el siguiente resultado: 700.01 lo cual no es correcto ya que si realizo las sumas con una calculadora, ingresando solo dos decimales para cada sumando, obtengo exactamente los 700.00 y no los 700.01, ahora bien, este .01 que aparece aquí es porque la sumatoria dentro de la variable que estoy usando arroja 700.0076 y el 7 es el que me genera el error ya que al redondearse, me pasa a 700.01.

Bueno, espero haber clarificado un poquito este tema, gracias por las respuestas y si tienen alguna nueva sugerencia, les agradeceré un montón.

Saludos

[David]

Una forma algo chapucera sería tratarlo como una cadena y cortar directamente la parte decimal, algo como esto:

Código vb:

Valor = 237.067
Valor = Val(Fix(Valor) & "." & Left(Split(CStr(Valor), ",")(1), 2))
MsgBox Valor
 

[seba123neo]

Iniciado por David el Grande

Una forma algo chapucera sería tratarlo como una cadena y cortar directamente la parte decimal, algo como esto:

Código vb:

Valor = 237.067
Valor = Val(Fix(Valor) & "." & Left(Split(CStr(Valor), ",")(1), 2))
MsgBox Valor
 

jeje lo mismo que hiba a poner yo...

saludos.

[rdm]

Entiendo la idea, vamos a probar. Muchas gracias por el cable.