MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Parcelas período de 365 dias

    Compartilhe

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 10/09/2012

    [Resolvido]Parcelas período de 365 dias

    Mensagem  fabianobilo em Qui 05 Jun 2014, 21:57

    Pessoal.

    Uso essa fórmula para calcular prestações mensais, ou seja, a partir de uma data as parcelas são calculadas de 30 em 30 dias.

    Porém preciso calcular a partir de uma data períodos anuais. Como faço? Porém só preciso de datas, não valores.

    Código período mensal.

    Private Sub Comando3_Click()
    On Error Resume Next
    Dim str    As String
    Dim i        As Byte
    For i = 1 To Me!txtNParc.Value
       CurrentDb.Execute "INSERT INTO TabParc (NParc, DataVenc, Nome) VALUES (" & i & ",'" & DateAdd("m", i, Me!txtData) & "','" & Me!txtNomeSocio & "')"
    Next i
    Me.TimerInterval = 1200
    MsgBox "Parcelas geradas por mês com sucesso!"
    Me.TimerInterval = 0
    End Sub
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Parcelas período de 365 dias

    Mensagem  Alexandre Neves em Sex 06 Jun 2014, 13:29

    Boa tarde,
    Basta adaptar para o período anual
    CurrentDb.Execute "INSERT INTO TabParc (NParc, DataVenc, Nome) VALUES (" & i & ",'" & DateAdd("yyyy", i, Me!txtData) & "','" & Me!txtNomeSocio & "')"


    .................................................................................
    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

    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 10/09/2012

    Re: [Resolvido]Parcelas período de 365 dias

    Mensagem  fabianobilo em Sex 06 Jun 2014, 13:49

    Olá

    Obrigado pela contribuição.

    Resolvido

      Data/hora atual: Sab 24 Jun 2017, 00:58