Como puedo redondear un valor numérico ingresado en un textbox

Tengo un textbox en el cual el valor ingresado lo uso para realizar un búsqueda pero ocupo que la búsqueda sea solo de numero enteros ejemplo si ingreso 15.6 que me busque el 16 o si es 15.3 que sea el 15, me pueden apoyar

gracias...

saludos...

2 respuestas

Respuesta
1

Con esto puedes redondear

Private Sub txtRedondea_Click()

Dim a, b, c, d As Double

a = txtTelefono.Text

b = Round(a, 0) 'redondea a Dos Decimales "Round ( Valor , Numero de Decimales)

MsgBox ("el numero redondeado es: " & b)

End Sub

Perdón me equivoque donde dice TXTTelefono eso solo la como se llame tu caja de texto

Respuesta
1

Puedes utilizar el evento afecter_update para que cuando valides lo que has introducido en el textbox lo deje redondeado con cero decimales. Con este método:

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Round(TextBox1.Value, 0)
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Redondeo Altruista

Byleto estoy haciendo una aplicación en Access 2003 por necesidad para mi tienda se poco de Access y menos aun de código y tengo una cuestión aver si se puede hacer: Resulta que quiero hacer como las tiendas grandes, es decir que piden a sus clientes...
2 respuestas

Buscar valor en excel para Textbox Formulario VBA

Tengo un formulario y dentro de él tengo varios textbox, necesito que cuando en el textbox1 se ingrese un numero, busque ese numero en una tabla que tengo en excel y arroje el valor de la segunda fila en el textbox2. He tratado colocando lo...
3 respuestas

Cuadro de texto con 2 decimales (formato)

Tengo una consulta sobre poner formato con 2 decimales a un cuadro de texto, pero nada,, me explico,, tengo un formulario vb con excel,,, y un cuadro de texto llamado Pago y quisiera cuando ponga por ejemplo,, en el cuadro de texto 600...
2 respuestas

Redondear decimales

Me gustaría saber como redondear decimales de manera que si tengo un campo con el valor 15,25 me redondee a 15,30 y si es 15,24 redondee a 15,20. Como veras el objetivo es redondear de forma que el segundo decimal siempre sea cero.
1 respuesta

Código para insertar Base-Iva-Cuota IVA en vba

No soy capaz de insertar, la formula que utilizo es esta 'Calcular el Importe de la cuota de IVA If Base = "" Then Base = 0 'La primera vez que se cargan los valores, inicializar a cero las variables necesarias para que las fórmulas funcionen...
1 respuesta

Problema con los decimales

Tengo un problema con los decimales, si coloco un precio 13,39 y al sacarle el iva, y descuento, sale 1499,68 Como redondeo eso a 15 mis códigos están así: Private Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If IsNumeric(Text16)...
2 respuestas