Visual Basic.NET - Problemas con los decimales

   
Vista:

Problemas con los decimales

Publicado por Pinky (104 intervenciones) el 18/01/2013 20:00:11
Hola amigos del foro mi consulta es la siguiente, poseo una caja destinada a un resultado en particular, la cantidad dividido la UF del día, en el cual le indico que debe poseer un maximo de 6 caracteres, pero me manda el resultado compeleto, este es el código que utilizo actualmente:
Sub Existe1()
Dim A As String
Dim sql As New Data.SqlClient.SqlCommand("Select * From Valores_UF1 Where Dia_UF = '" + LABELFECHA.Text + "' and activo=1", conn)
Dim resultado As SqlClient.SqlDataReader
Try
resultado = sql.ExecuteReader()
Catch ex As Exception
MsgBox("error")
Exit Sub
End Try
If resultado.HasRows Then
Do While resultado.Read()
TXTPARCHE3.Text = resultado.Item("Valor_UF")
A = TXTCANTIDAD.Text / TXTPARCHE3.Text
TXTUF.Text = CDec(A)
Loop
Else
MsgBox("Esta Fecha no ha sido ingresada aún.", MsgBoxStyle.Information, "LYH")
TXTDIA.Text = ""
TXTDIA.Focus()
End If
resultado.Close()
End Sub
lo que quiero hacer es lo siguiente:
txtcantidad.text =1000000
txtparche3.text=22.807,67
el resultado que quiero es el siguiente "43,84" y no el completo "43,8448995447584", ya que el maximo que posee en la tabla de datos es de char(10), favor de ayudarme con esta ayuda, lo he intentado todo pero no funciona nada, debe ser algo facil pero no lo puedo hacer, en VB 6.0 lo podia hacer ahora en este no puedo, desde ya 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

Problemas con los decimales

Publicado por HAROLD VILLENA (411 intervenciones) el 22/01/2013 09:14:28
Hola:

Puedes usar estas 2 funciones:

Redondear valor con decimales
* System:Math.Round(tuValor, numDecimalesQueDeseas)


Formatear el resultado al tipo Currency
* tuValor.tostring({c})
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