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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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
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