Saltar al contenido

Formato falla sólo en un caso

publicado

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

Featured Replies

publicado

Hola,

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

publicado
  • Autor

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

  • Enigma25 bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.