Conversión de string a número con 2 decimales

[peaso]

Buenas a tod@s otra vez.

Tengo un problemilla: Tengo en un string una cantidad de € (nuestro adorado Euro ) que puede o no tener decimales (está calculado de unos campos de una BD que también pueden o no ser enteros). Pues bien, como todos bien sabeis :Phay céntimos de €, por lo que querría que esa convertir esa cantidad a otro string (o lo que sea) con exactamente 2 decimales.

Sé que podría hacer un búsqueda del separador de decimales, y truncar o algo así, pero no sé como empezar. ¿Alguna idea?

Muchas gracias! ;)

PEASO <a href="http://peaso.cjb.net" TARGET=_blank> (La Peich del Peaso)</a>

[peaso]

Para empezar:

¿Cómo se hace una busqueda de un cierto carácter en un string? Más que nada, para buscar una coma &quot;,&quot; en la variable, y según en qué posición esté le añado &quot;0&quot;, &quot;,00&quot; o nada.

Decidme algooooooo!!!

PEASO <a href="http://peaso.cjb.net" TARGET=_blank> (La Peich del Peaso)</a>

[peaso]

No os preocupeis. Ya está solucionado. Pongo la rutina por si a alguien el interesa:

Código:

' Deja el número con exactamente dos decimales
Private Function redondear(num As Double) As String
    Dim num2 As Double
    Dim strNum As String
    Dim pos As Integer
    Dim ln As Integer
    
    num2 = Round(num, 2)
    strNum = CStr(num2)
    pos = InStr(strNum, ",")
    ln = Len(strNum)
    If pos = 0 Then
        ' No tiene coma --> 650 --> 650,00
        redondear = strNum & ",00"
    Else
        ' Tiene coma, miramos posición
        If (ln - pos) = 1 Then
            'estilo 650,2 --> 650,20
            redondear = strNum & "0"
        Else
            ' como está redondeado, tendrá dos decimales
            ' 650,23 --> OK
            redondear = strNum
        End If
    End If
    
End Function

PEASO <a href="http://peaso.cjb.net" TARGET=_blank> (La Peich del Peaso)</a>

[dabo_arg]

Hey.. es mas facil me parece...

solo usa FormatNumber

aca te doy un ejemplo de dos

Euro= FormatNumber(Val(Text1.Text), 2)

Te dara dos decimales asi no coloques ninguno en el text1.
si cargas 10 te dara 10.00
si cargas 10.258 te dara 10.26

saludos
de Argentina

Daniel

[peaso]

Un pelín tarde!! Despues de la matada de hacer la función!!

Pero bueno, muchísimas gracias de todas maneras. Lo tendré presente para otra ocasión.

PEASO <a href="http://peaso.cjb.net" TARGET=_blank> (La Peich del Peaso)</a>