MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

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

    Mensagem  Convidado 7/9/2011, 13:41

    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
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº2

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

    Mensagem  Avelino Sampaio 7/9/2011, 13:46

    Olá Hary

    Vou te oferecer o anzol. use o MOD

    exemplo

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

    Sucesso!
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº3

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

    Mensagem  criquio 7/9/2011, 13:48

    Uma ideia poderia ser:

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº4

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

    Mensagem  criquio 7/9/2011, 13:49

    Postamos ao mesmo tempo. Bom que tem duas possibilidades Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº5

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

    Mensagem  Convidado 7/9/2011, 13:58

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

    Poderia aplicá-lo da maneira convencional?
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº6

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

    Mensagem  criquio 7/9/2011, 13:59

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº7

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

    Mensagem  Convidado 7/9/2011, 14:00

    Funcionou o teu Criquio..

    Não consegui aplicar o do avelino...

    Obrigado...
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº8

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

    Mensagem  Avelino Sampaio 7/9/2011, 14:14

    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!
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº9

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

    Mensagem  Convidado 7/9/2011, 14:38

    Perfeito para os dois..

    Obrigado...
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº10

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/5/2024, 03:38