Colocar puntos y coma al valor double

Quisiera saber si alguien sabe como colocarles los puntos y/o comas a un valor de tipo double en VB 6.0

1 respuesta

Respuesta
1
¿Quieres cambiar las comas de un double por puntos?
¿Quieres crear un double "manualmente"? (Es decir teniendo dos variables tipo integer que representen parte entera y parte decimal unirlas para crear un double)
Sin más información puedo decirte que yo uso un tratamiento un tanto rudimentario que consiste en convertir el número en cadena de caracteres y tratar carácter a carácter, substituyendo el "." por "," o agregando la parte decimal detrás.
Si me das más información intentaré contestar mejor a tu pregunta.
Hola, lo que quiero hacer es lo siguiente: si un resultado POR me da 1500,89; quiero representar este valor así: 1.500,89.
Gracias!
Aquí te dejo un código con una solución a lo que me pides. Espero que te inspire. Un saludo.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = ""
Dim b As String = ""
Dim c As String = ""
Dim resultado As String = ""
Dim i, j, numero As Double
b = TextBox1.Text
For i = 0 To b.Length
If (b(i) <> "." And b(i) <> ",") Then
a = a + b(i)
Else
Exit For
End If
Next
i = i + 1
For j = i To b.Length - 1
If b(j) <> "." Then
c = c + b(j)
Else
Exit For
End If
Next
' aqui tenemos separada la parte entera de la decimal
numero = Convert.ToInt64(a)
If a.Length > 3 Then
i = a.Length - 1
While i > a.Length - 4
resultado = a(i) + resultado
i = i - 1
End While
resultado = "," + resultado
While i >= 0
resultado = a(i) + resultado
i = i - 1
End While
End If
If a.Length > 6 Then ' si hay millones(contando con la coma añadida)
b = resultado
i = b.Length - 5
resultado = ""
While i > b.Length - 8
resultado = b(i) + resultado
i = i - 1
End While
resultado = "." + resultado
While i >= 0
resultado = b(i) + resultado
i = i - 1
End While
End If
If a.Length > 6 Then
resultado = resultado + b(4) + b(5) + b(6) + b(7) + "." + c
Else
resultado = resultado + "." + c
End If
'resultado = resultado + "," + c
TextBox2.Text = resultado

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas