Visual Basic 6.0 - Formatear número con decimales sin redondeo

Written by lopezatienza on 21 Mayo 2009 – 12:24 -

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

  1. Public Function Formatear(NumeroAFormatear)
  2.  
  3. If IsNumeric(NumeroAFormatear) = False Then Exit Function
  4.  
  5. Dim PosicionDecimal
  6. Dim NumeroOriginal
  7.  
  8. NumeroOriginal = NumeroAFormatear
  9. 'MsgBox "NumeroOriginal = " & NumeroOriginal
  10.  
  11. PosicionDecimal= InStr(1, NumeroOriginal , ",")
  12. 'MsgBox "PosicionDecimal= " & PosicionDecimal
  13.  
  14. NumeroAFormatear = Mid(NumeroOriginal , 1, PosicionDecimal+ 2)
  15. 'MsgBox "NumeroAFormatear = " & NumeroAFormatear
  16.  
  17. '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
  18.  
  19. End Function

Tags:
Posted in Visual Basic 6.0 |

Leave a Comment

RSS