RE:quiero quitar decimales y redondearlo a la alta
Publicado por juliocalvache (95 intervenciones) el 07/04/2005 14:42:48
Para redondear al superior utiliza el comando Round.
si la sifra es 20.500,5 el resultado 20.500,00
si la sifra es 20.500,6 el resultado 20.501,00
Para dividir y no te de error:
Function NumDiv(SumNumero As Variant, DivProm As Variant) As double
CalProm = IIf(DivProm <= 0 Or IsNull(DivProm), 0, (Nz(SumNumero, 0) / IIf(DivProm = 0 Or IsNull(DivProm), 1, DivProm)))
CalProm = IIf(IsError(CalProm), 0, CalProm)
End Function
Esta funcion la metes en los modulos de access.
cuando desees activarla la llamas asi:
VariableX= NumDiv(NumeroUno,NumeroDos)
si la sifra es 20.500,5 el resultado 20.500,00
si la sifra es 20.500,6 el resultado 20.501,00
Para dividir y no te de error:
Function NumDiv(SumNumero As Variant, DivProm As Variant) As double
CalProm = IIf(DivProm <= 0 Or IsNull(DivProm), 0, (Nz(SumNumero, 0) / IIf(DivProm = 0 Or IsNull(DivProm), 1, DivProm)))
CalProm = IIf(IsError(CalProm), 0, CalProm)
End Function
Esta funcion la metes en los modulos de access.
cuando desees activarla la llamas asi:
VariableX= NumDiv(NumeroUno,NumeroDos)
Valora esta pregunta
0