¿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