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


3 participantes

    [Resolvido]Como calcular MEDIANA e MODA

    toxicsquall
    toxicsquall
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011

    [Resolvido]Como calcular MEDIANA e MODA Empty Como calcular MEDIANA e MODA

    Mensagem  toxicsquall 10/7/2013, 17:55

    Boa tarde,
    Gostaria de saber se tem como fazer um campo calculado em uma consulta o qual retornará a MODA ou a MEDIANA de uma lista de dados.

    Por exemplo:
    2, 2, 2, 3, 4, 4, 5, 6, 6

    A MODA seria 2 pois aparece mais vezes, e a MEDIANA, seria 4, pois é o valor do meio entre o primeiro e último número.


    .................................................................................
    Gilberto Teles do Vale
    www.about.me/toxicsquall
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Como calcular MEDIANA e MODA Empty Como calcular MEDIANA e MODA

    Mensagem  good guy 10/7/2013, 18:46

    Olá squall,

    Use a consulta de referência cruzada para realizar os seus cálculos. O que você quer fazer CONTAR ou SOMAR?Existe uma lista do tipo de operações que você poderá fazer para seu campo calculado.


    Última edição por good guy em 10/7/2013, 18:48, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Como calcular MEDIANA e MODA Empty Re: [Resolvido]Como calcular MEDIANA e MODA

    Mensagem  Alexandre Neves 10/7/2013, 18:47

    Boa tarde,
    Function Mediana(Tabela As String, Campo As String, Optional NomeCampoAgrupamento As String = "", Optional CampoAgrupamento) As Double
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' '
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' o código pode ser utilizado livremente, desde que mencionado este cabeçalho '
    ' '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    'em 2013-07-10 para toxicsquall
    Dim Rst As DAO.Recordset
    If NomeCampoAgrupamento = "" Then
    Set Rst = CurrentDb.OpenRecordset("SELECT [" & Campo & "] FROM [" & Tabela & "] ORDER BY [" & Campo & "];")
    Else
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabela & "];")
    Select Case Rst.Fields(NomeCampoAgrupamento).type
    Case 4 'Integer
    Set Rst = CurrentDb.OpenRecordset("SELECT [" & Campo & "] FROM [" & Tabela & "] WHERE [" & NomeCampoAgrupamento & "]=" & CampoAgrupamento & " ORDER BY [" & Campo & "];")
    End Select
    End If
    Rst.MoveLast
    Rst.MoveFirst

    Rst.Move Int(Rst.RecordCount / 2)
    If Rst.RecordCount Mod 2 = 0 Then
    Mediana = Rst.Fields(0)
    Rst.Move -1
    Mediana = (Mediana + Rst.Fields(0)) / 2
    Else
    Mediana = Rst.Fields(0)
    End If
    Set Rst = Nothing
    End Function

    Function Moda(Tabela As String, Campo As String, Optional NomeCampoAgrupamento As String = "", Optional CampoAgrupamento) As String
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' '
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    ' o código pode ser utilizado livremente, desde que mencionado este cabeçalho '
    ' '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    'em 2013-07-10 para toxicsquall
    Dim Rst As DAO.Recordset
    If NomeCampoAgrupamento = "" Then
    Set Rst = CurrentDb.OpenRecordset("SELECT Count([" & Campo & "]),[" & Campo & "] FROM [" & Tabela & "] WHERE Not IsNull([" & Campo & "]) GROUP BY [" & Campo & "] ORDER BY Count([" & Campo & "]);")
    Else
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabela & "];")
    Select Case Rst.Fields(NomeCampoAgrupamento).type
    Case 4 'Integer
    Set Rst = CurrentDb.OpenRecordset("SELECT Count([" & Campo & "]),[" & Campo & "] FROM [" & Tabela & "] WHERE Not IsNull([" & Campo & "]) AND [" & NomeCampoAgrupamento & "]=" & CampoAgrupamento & " GROUP BY [" & Campo & "] ORDER BY Count([" & Campo & "]) DESC;")
    End Select
    End If
    If Rst(0) > 1 Then
    Moda = Rst(1)
    Else
    Moda = "Sem Moda"
    End If
    Set Rst = Nothing
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    toxicsquall
    toxicsquall
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/09/2011

    [Resolvido]Como calcular MEDIANA e MODA Empty Re: [Resolvido]Como calcular MEDIANA e MODA

    Mensagem  toxicsquall 11/7/2013, 19:23

    OBRIGADO


    .................................................................................
    Gilberto Teles do Vale
    www.about.me/toxicsquall

    Conteúdo patrocinado


    [Resolvido]Como calcular MEDIANA e MODA Empty Re: [Resolvido]Como calcular MEDIANA e MODA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:20