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

    Juros Compostos

    Ari
    Ari
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 28/11/2009

    Juros Compostos Empty Juros Compostos

    Mensagem  Ari 20/11/2014, 01:42

    Alguém sabe transformar este código de Juro Simples para Juro Composto?

    Private Function Calc_parc()
    Dim rs As DAO.Recordset, I As Byte
    Dim rs1 As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & "")
    Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & " and quitada = -1")
    If Not rs1.EOF Then
    MsgBox "Este Contrato já foi parcelado e contém pagamento efetuado. " & Chr(10) & "" _
    & "Não será possivel refazer parcelamento !!!", vbCritical
    Set rs1 = Nothing
    Exit Function
    End If


    If Not rs.EOF Then
    If MsgBox("Já existe um parcelamento para este Contrato !!! " & Chr(10) & "" _
    & "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
    DoCmd.SetWarnings True

    Else
    Exit Function
    End If

    End If

    If Not Resto <= 0 Then
    For I = 1 To Me.q_parc
    With rs
    .AddNew
    !NrContrato = Me.NrContrato
    !Num_parc = I & "/" & Me.q_parc
    !Data_venc = DateAdd("m", I - 1, (Me.VencParcela1))
    !Val_parc = Me.v_parc

    .Update
    End With
    Next
    Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
    DoCmd.SetWarnings True
    End If
    rs.Close
    Set rs = Nothing
    'MsgBox "Valores inseridos com sucesso!!!"
    Me.Forma_Pgto.Requery
    Me.Forma_Pgto.SetFocus

    End Function

    ===============================================================================

    Obrigado

    Ari
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Juros Compostos Empty Re: Juros Compostos

    Mensagem  criquio 20/11/2014, 02:06

    Olá! Veja se esse tópico ajuda.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Ari
    Ari
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 28/11/2009

    Juros Compostos Empty Re: Juros Compostos

    Mensagem  Ari 20/11/2014, 16:08

    Very Happy Foi justamente depois de ver este tópico que resolvi abrir este, por não conseguir adaptar um ao outro.

    Ari
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Juros Compostos Empty Re: Juros Compostos

    Mensagem  criquio 20/11/2014, 20:29

    Aonde está a parte que calcula o juro que eu não consegui identificar?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Ari
    Ari
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 100
    Registrado : 28/11/2009

    Juros Compostos Empty Re: Juros Compostos

    Mensagem  Ari 23/11/2014, 18:58

    Estou usando o BD Parcelas_2008 do JPaulo, porém o calculo é em Juros Simples.
    Se este exemplo calculasse Juros Compostos, pronto, seria a solução.

    >>>Espero que o JPaulo veja esta mensagem. Question Exclamation

    Abraços

    Ari

    Conteúdo patrocinado


    Juros Compostos Empty Re: Juros Compostos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 20:29