Visual Basic - Redondear cantidades

Life is soft - evento anual de software empresarial
 
Vista:

Redondear cantidades

Publicado por Roman Marquez (22 intervenciones) el 05/10/2005 23:08:23
Que tal a todos quisiera hacerles una pregunta

Como puedo hacerle para que en un texbox donde al cual ocupo para mostrar el resultado de varias operaciones me salga solo con dos decimales y redondeado
ya probe con el fomato de textbox, ahi le puse dos decimales pero nada, no pasa nada

aveces en el resultado sale por ejemplo 3.1189

como hacer pa que salga 3.12

a y si no es mucho pedir
Como puedo hacer una busqueda en utilizando DAO

De antemano muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Redondear cantidades

Publicado por Rodrigo (83 intervenciones) el 05/10/2005 23:19:43
Te escribi al mail.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 7
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Redondear cantidades

Publicado por Carlos Gomez (262 intervenciones) el 06/10/2005 00:12:40
Viejito facilito, mira lo que vas a hacer:
agrega un texbox y un label o etiqueta y agrega este codigo

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Nro, Nro1, Nro2, Resultado
If KeyAscii = 13 Then
Nro = Text1.Text
For x = 1 To Len(Nro)
If Mid(Nro, x, 1) = "," Or Mid(Nro, x, 1) = "." Then
Nro1 = Left(Nro, x)
Nro2 = Mid(Nro, x + 1, 3)
Exit For
End If
Next x
Select Case Right(Nro2, 1)
Case 0 To 5
Resultado = Nro1 & Left(Nro2, 2)
Case 5 To 9
Resultado = Left(Nro2 + 1, 2)
Resultado = Nro1 & Resultado
End Select
Label1.Caption = Resultado
End If
End Sub

es complejo aparentemente pero resulta, espero te sirva de algo, suerte viejo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar