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]Separar o inteiro e o decimal de um valor

    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Separar o inteiro e o decimal de um valor Empty [Resolvido]Separar o inteiro e o decimal de um valor

    Mensagem  Nill.GO 28/12/2022, 18:37

    Olá pessoal,
    Preciso pegar o resultado de um valor inteiro e decimal e separá-los


    Private Sub Report_Load()
    Dim rst As DAO.Recordset
    Dim strsql As String

    strsql = "Select Count(*) As totalClientes From tbClientes WHERE setor = 1"
    Set rst = CurrentDb.OpenRecordset(strsql)

    'Aqui me retorna o total (6,294)
    txtTotal.Value = rst.Fields("totalClientes") * 300 / 5100

    Me.txtInteiro.Value =

    Me.txtDecimal.Value =

    rst.Close
    Set rst = Nothing
    End Sub

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Separar o inteiro e o decimal de um valor Empty Re: [Resolvido]Separar o inteiro e o decimal de um valor

    Mensagem  Avelino Sampaio 29/12/2022, 08:39

    Olá!

    Você pode usar a função int() ou a val(). Pode usar também a barra invertida "\" para retornar com o inteiro.

    Exemplo:

    Me.txtInteiro.Value = (rst.Fields("totalClientes") * 300) \ 5100

    Me.txtDecimal.Value = ((rst.Fields("totalClientes") * 300) / 5100) - ((rst.Fields("totalClientes") * 300) \ 5100)


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Separar o inteiro e o decimal de um valor Empty Separar o inteiro e o decimal de um valor

    Mensagem  Nill.GO 29/12/2022, 13:28

    Bom dia Avelino,

    No resultado está me retornando os valores:

    Inteiro: 7 // Aqui Correto
    Decimal: 0,882352941176471

    Sobre a parte do decimal, é o seguinte
    No decimal, o meu pedido a mais é que preciso transformar em um valor baseado conforme abaixo:

    Sendo o valor fixo: 5100 // que corresponde uma parte do valor inteiro

    1 ---- corresponde --- 5100
    7 ---- corresponde --- 35700
    0,882 --- corresponde --- x

    Preciso retornar o decimal, baseado na proporção do valor 5100

    Na regra de três simples sei que vai dar o resultado 14,994
    Me.txtDecimal.Value = x 'Se possível aqui o valor arredondado para 15

    Desde já muito agradecido
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Separar o inteiro e o decimal de um valor Empty Re: [Resolvido]Separar o inteiro e o decimal de um valor

    Mensagem  Avelino Sampaio 29/12/2022, 14:43

    Explique de outra forma. Não faz sentido para mim o valor 14,994

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Separar o inteiro e o decimal de um valor Empty Separar o inteiro e o decimal de um valor

    Mensagem  Nill.GO 29/12/2022, 16:28

    Mais detalhes:

    É um controle correspondente a garrafas/copos, onde a garrafa contém 17 copos(valor padrão) , que os copos são medidos em 300ML

    Sendo a garrafa 17 copos ---> corresponde a 5100 ML

    Então com o resultado totalClientes por setores, me resultando como exemplo:

    totalClientes: 134

    Vou ter 7,882 (7 Garrafas e 0,882)
    Neste 0,882 que preciso transformar em copos, correspondentes 300ML

    Melhorando aqui, o 0.882 é quase uma garrafa, se o resultado fosse  por exemplo 0,500, seria a metade de uma garrafa, ou seja, a metade de 5100, que iria ser 8,5 copos (oito copos e meio)

    Boa tarde Avelino,
    Deu para entender ?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Separar o inteiro e o decimal de um valor Empty Re: [Resolvido]Separar o inteiro e o decimal de um valor

    Mensagem  Avelino Sampaio 2/1/2023, 08:33

    Basta realizar uma multiplicação da fração pelo número de copos (17).

    0.882 * 17 copos = 14,994 copos

    Pode utilizar a função Round() para arredondar.

    Round (0.882 * 17) = 15

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    [Resolvido]Separar o inteiro e o decimal de um valor Empty [Resolvido]Separar o inteiro e o decimal de um valor

    Mensagem  Nill.GO 2/1/2023, 21:06

    Valeu, Mestre Avelino Sampaio. Fico muito agradecido pela ajuda.
    Concluído, funcionando perfeitamente.
    Deus abençoe ricamente.

    Conteúdo patrocinado


    [Resolvido]Separar o inteiro e o decimal de um valor Empty Re: [Resolvido]Separar o inteiro e o decimal de um valor

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/6/2024, 13:27