Visual Basic - como puedo truncar los decimales y dejar solo 2

como puedo hacer para que una variable de tipo double pueda ser truncada de modo que solo queden 2 decimales despues del punto

Puedes utilizar o bien la funcion Round:

Valor=Round(Valor,2)

O bien la funcion format:

Valor=Format(Valor,"0.00")

Slaudos

Cuidado al usar la función Round, ya que si ejecutas:

x = 2.225
valor = Round(x, 2)

valor tendrá 2.22

mientras que si usas:

valor = Format(x, "0.00")
valor tendrá 2.23
saludos

Hola :
Perdoname que te moleste , pero encontré una respuesta tuya en la web del programador sobre decimales y te cuento mi problema a ver si me puesdes ayudar.
Quiero ingresar importes con solamente dos decimales en una caja de texto y que cuando uno quiera ingresar más de dos decimales no lo permita.
Desde yá muchas gracias.

usa la funcion maxlength del textbox

hola, vi este post ya que estamos teniendo un problema con un programa el cual no nos da los decimales que requerimos cuando implementamos la función FORMAT hay alguna otra etiqueta que nos sirva para este lenguaje?

Buenos dias, Alberto gracias por su respuesta, ha sido de enorme ayuda conocer la función Round, trabaje una buenas horas entre un texbox y una celda con formato numerico, que almacenaba valores absurdos, hasta encontrar su función de redondeo a 2 decimales, claro cuando se conoce que sencillo era, eso por su voluntad de compartir conocimiento. señor muchas gracias.

Gracias, me has sacado de un apuro.

Truncar no es lo mismo que redondear por ejemplo el numero 23.4553
redondeado a 2 decimales debuelve 23.46 mientras que en el truncado (funsión economica) devolveria 23.45 el problema es que en economia los 0.0053 centavos aun cuentan o sea que los valores truncados se deben flexibilizar para saber cuando se redondea y cuando se truncan.

a nivel de un modulo BAS escribe esta función

Hola intente utilizar la funcion, pero da errores de sintaxis y eso de (unit-truncar) da error

Excelente, salió genial y es super fácil, solo un par de errores al tipeo. Gracias estuve una noche trabado y con esto lo resolví en minutos