F_Arredondamento

Retorna um valor arredondado com quantas casas decimais forem necessárias.

Sintaxe: RH.F_Arredondamento(Valor, Base)

A sintaxe da função F_Arredondamento contém os seguintes argumentos:

Parte	Descrição
Valor	Informe um valor a ser arredondado
Base	Informa a base de arredondamento. Esta pode ser 1, 5 ou 10 Reais.

Dim iValorArredondado, iValor

iValor = 121.34545
iValorArredondado = RH.F_Arredondamento(iValor,1) ‘Retornará 122
iValorArredondado = RH.F_Arredondamento(iValor,5) ‘Retornará 125
iValorArredondado = RH.F_Arredondamento(iValor,10) ‘Retornará 130

Dim iValor_Arredondado, iBase_Calculo

iBase_Calculo = RH.F_CalculoColaborador(RH.T_Colaborador.Field("COL_IN_CODIGO").AsInteger, 3,mega2000.Data(Me.MesCorrente,2), 7)
iValor_Arredondado = RH.F_Arredondamento(iBASE_CALCULO,1)