MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Selecionar o valor mais próximo

    Compartilhe

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    Registrado : 17/05/2015

    Selecionar o valor mais próximo

    Mensagem  roberval em Ter 15 Set 2015, 18:43

    Ola!
    Bem, tenho um código que gera 5 números aleatórios e 5 TextBox diferentes, depois um um sexto número é gerado
    Então aí vem o problema, eu quero depois que eu clicar em botão ele me mostre qual dos 5 números é mais próximo ao sexto num gerado...


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver esta imagem.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: Selecionar o valor mais próximo

    Mensagem  ahteixeira em Ter 15 Set 2015, 20:00

    Olá, pode fazer a a verificaçao dos cincos números.
    Para isso fazer a subtracao de cada número com o sesto numero.

    Estou nontelemovel mas vai exemplo:

    Dim NrProximo, diferenca

    Diferenca=abs(numero6-numero1)
    NrProximo=Numero1

    If abs(numero6-numero2) < diferença then
    Diferenca=abs(numero6-numero2)
    NrProximo=Numero2
    Endif
    ... If igual anterior para 3, 4 e 5

    Abraço

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: Selecionar o valor mais próximo

    Mensagem  ahteixeira em Ter 13 Out 2015, 07:22

    Olá, como ficou a situação?
    Os utilizadores do fórum merecem e agradecem o retorno.
    Abraço

      Data/hora atual: Qua 07 Dez 2016, 18:19