MaximoAccess

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

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
    avatar
    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, 19: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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Selecionar o valor mais próximo

    Mensagem  ahteixeira em Ter 15 Set 2015, 21: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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Selecionar o valor mais próximo

    Mensagem  ahteixeira em Ter 13 Out 2015, 08:22

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

      Data/hora atual: Ter 25 Jul 2017, 05:43