[Resolvido]Como encontrar 0 múltiplo de 10 superior mais próximo de um certo numero...

Se tenho os numeros:

53 - Multiplo de 10 superior = 60
67 - Múltiplo de 10 superior - 70


Em tendo o numero como encontrar este multiplo de 10 imediatamente superior via VBA?


Grato

Olá Hary

Vou te oferecer o anzol. use o MOD

exemplo

if (numero + j) mod 10 = 0 then resultado = numero + j

Sucesso!

Uma ideia poderia ser:

Me.Campo2 = Left(Me.Campo1, Len(Me.Campo1) - 1) + 1 & 0

Postamos ao mesmo tempo. Bom que tem duas possibilidades

Bom dia Avelino.. eu não estou acostumado com o código em sequencia como faz...

Poderia aplicá-lo da maneira convencional?

A função acima mais completa para englobar números de um dígito, de mais de um dígito, dezena inteira e dezena quebrada:

If Len(Me.Campo1) = 1 Then
Me.Campo2 = 10
ElseIf Len(Me.Campo1) > 1 And Right(Me.Campo1, 1) <> 0 Then
Me.Campo2 = Left(Me.Campo1, Len(Me.Campo1) - 1) + 1 & 0
Else
Me.Campo2 = Me.Campo1
End If

Funcionou o teu Criquio..

Não consegui aplicar o do avelino...

Obrigado...

Olá amigos

Cole esta função num módulo global

Código:

Public Function fncMult10(Num As Long) As Long
Dim j As Byte
For j = 0 To 9
    If (Num + j) Mod 10 = 0 Then
        fncMult10 = Num + j
        exit for
    End If
Next
End Function

Agora basta usar, inclusive direto numa consulta.

Sucesso!

Perfeito para os dois..

Obrigado...