lopezatienza.com

A continuación os muestro una función para formatear un número con dos decimales sin redondear:

Public Function Formatear(NumeroAFormatear)

If IsNumeric(NumeroAFormatear) = False Then Exit Function

Dim PosicionDecimal
Dim NumeroOriginal

NumeroOriginal = NumeroAFormatear
'MsgBox "NumeroOriginal = " & NumeroOriginal

PosicionDecimal= InStr(1, NumeroOriginal , ",")
'MsgBox "PosicionDecimal= " & PosicionDecimal

NumeroAFormatear = Mid(NumeroOriginal , 1, PosicionDecimal+ 2)
'MsgBox "NumeroAFormatear = " & NumeroAFormatear

'El número de decimales en este caso sería 2, pero ese se puede cambiar en la función Mid, pasándole como tercer parámetros PosicionDecimal + Número de decimales que deseemos

End Function

Autor: Antonio Lopez Atienza