Cómo controlar el número de decimales sin redondear en programación VB.
Dim s Como cadena, pos Como entero
Dim v Como doble, a Como doble, b Como doble
s = "123.4567" 'Cadena 123.4567
v = Val(s) 'Número 123.4567
p>'Solo intercepta los tres decimales según la cadena, y el cuarto dígito no está redondeado
pos = InStr(s, " ." )
a = Val(Left(s, pos + 3)) 'Toma la posición del punto decimal + 3 caracteres de la izquierda y conviértelo a un valor numérico
b = Int(v * 1000) / 1000 'Ampliar 123,4567 por 1000 veces, luego redondear a 123456,7 y luego dividir por 1000
Imprimir a, b