MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Juros Compostos

    Compartilhe
    avatar
    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Juros Compostos

    Mensagem  Ari em Qui 20 Nov 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
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Juros Compostos

    Mensagem  criquio em Qui 20 Nov 2014, 02:06

    Olá! Veja se esse tópico ajuda.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.

    avatar
    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Juros Compostos

    Mensagem  Ari em Qui 20 Nov 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
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Juros Compostos

    Mensagem  criquio em Qui 20 Nov 2014, 20:29

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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.

    avatar
    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Juros Compostos

    Mensagem  Ari em Dom 23 Nov 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

      Data/hora atual: Sab 25 Mar 2017, 05:51