Formato falla sólo en un caso

[Aristoy]

Buenos días,

Tengo la siguiente función en una hoja de Excel XP:

Function NumDecimales(ValorSeñal As String, NumDec As Integer)

'función para representar decimales

Select Case NumDec

    Case 0

        NumDecimales = Format(ValorSeñal, "0") 

    Case 1

        NumDecimales = Format(ValorSeñal, "0.0")

    Case 2

        NumDecimales = Format(ValorSeñal, "0.00")

    Case 3

        NumDecimales = Format(ValorSeñal, "0.000")

    Case 4

        NumDecimales = Format(ValorSeñal, "0.000 0")

    Case 5

        NumDecimales = Format(ValorSeñal, "0.000 00")

    Case 6

        NumDecimales = Format(ValorSeñal, "0.000 000")

    Case 7

        NumDecimales = Format(ValorSeñal, "0.000 000 0")

    Case 8

        NumDecimales = Format(ValorSeñal, "0.000 000 00")

    Case 9

        NumDecimales = Format(ValorSeñal, "0.000 000 000")

End Select


End Function

[/CODE]

Funciona para todos los casos representados, excepto para el Case 3 [NumDecimales = Format(ValorSeñal, "0.000")].

Por ejemplo, el número 1993,313333 al pasar por el Case 3, lo convierte en 1993313,000 000, en lugar de ponerlo como 1993,313, como debería ser. En el resto de casos funciona perfectamente. ¿Alguna idea? Lo necesito arreglar para mañana y no veo por qué falla.

Gracias

[tuve]

Hola,

He probado el ejemplo que dices que falla y devuelve el resultado esperado.

[Aristoy]

Gracias tuve,

Sí, en teoría está bien, pero no me explico por qué me puede estar fallando en el caso 3. Le daré otro repaso, o borraré el código y lo volveré a escribir. No tiene sentido que no funcione correctamente.

Saludos