moduloFormulas_2008_07_15.bas

  1. Attribute VB_Name = "moduloFormulas_2008_07_15"
  2. Option Explicit
  3.  
  4. 'Funciones para fórmulas de las celdas
  5. '2008-VII-15 <fco@proinf.net>
  6.  
  7. Public Function NoError( _
  8. ByVal valor As Variant, _
  9. Optional ByVal valorOmision As Variant = Null _
  10. ) As Variant
  11. 'Evita el error de división por cero en las fórmulas de cálculo de precios
  12. '2008-VII-15 <fco@proinf.net>
  13.  
  14. If IsError(valor) Then
  15. NoError = 0
  16. Else
  17. NoError = valor
  18. End If
  19. End Function
  20.  
  21.  
  22.  
  23.  

Proinf.net