MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Função para calculo de equações do 2º grau

    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 13/04/2012

    Função para calculo de equações do 2º grau Empty Função para calculo de equações do 2º grau

    Mensagem  Fernando Bueno em 14/5/2013, 20:12

    Pesquisando na net encontrei esse codigo do Thomas Jefferson

    Código:
    Function Báskara(A, B, C As Double) As String
    'Os valores devem estar no campo dos Reais
    'Caso umas variáveis seja omitida na equação, substitua por 0
    'Escrita por Thomas Jefferson Pereira Lopes | redcatmetal@aol.com

    If A <> 0 Then GoTo ADiferente0 Else: GoTo AIgual0

    ADiferente0:
    Dim Delta, X1, X2
    Delta = (B ^ 2) - (4 * A * C)

    If Delta < 0 Then
    GoTo DeltaMenor0
    ElseIf Delta = 0 Then
    GoTo DeltaIgual0
    Else

    X1 = (-1 * B + Sqr(Delta)) / (2 * A)
    X2 = (-1 * B - Sqr(Delta)) / (2 * A)

    Báskara = "X' = " & X1 & ", X'' = " & X2 & ", DELTA = " & Delta & ""
    End If

    AIgual0:
    Báskara = "A tem que ter valor <> de 0"
    GoTo Exit_

    DeltaMenor0:
    Báskara = "Discriminante negativo (" & Delta & "), não há solução no campo dos Reais"
    GoTo Exit_

    DeltaIgual0:
    Báskara = "X'e X'' são iguais = " & X1 & ", porque DELTA = 0"
    GoTo Exit_

    Exit_:
        Exit Function
    End Function


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Função para calculo de equações do 2º grau 16rzeq

      Data/hora atual: 29/11/2020, 16:09