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 pulando sábado e domingo

    Compartilhe

    rpaiva_lon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 11/04/2012

    [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  rpaiva_lon em Qui 02 Jul 2015, 19:21

    Precisando de ajuda para solucionar este problema, tenho um código pra gerar parcelas , ele pula de mês em mês , como faço para quando for fim de semana ou feriado ele pular para o próximo dia útil, o código que eu uso é este...
    São duas tabelas que eu uso, a de parcela seria um subformulario


    Private Sub btParcelas_Click()
               
       Dim db
       Dim rs
       Dim i As Integer
       
           
       Set db = CurrentDb()
       Set rs = db.OpenRecordset("tbl_Parcelas")
       
       For i = 1 To Me.txt_Mov_NParcelas
           rs.AddNew
           rs("MovD_Mov") = Me.txt_Mov_ID
           rs("MovD_Parcela") = i & "/" & Me.txt_Mov_NParcelas
           rs("MovD_Valor") = txt_Mov_Valor / txt_Mov_NParcelas
           rs("MovD_Venc") = DateAdd("m", i - 1, Forms!frm_Movimento!txt_Mov_Vencimento) 'Gera as parcelas de Mês em mês
           rs.Update
       Next
       
       rs.Close
       db.Close
       
       End If
     
    End Sub


    Última edição por rpaiva_lon em Sex 03 Jul 2015, 12:21, editado 1 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3047
    Registrado : 06/11/2009

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  Assis em Qui 02 Jul 2015, 20:06

    Boa tarde

    Teste

    Private Sub btParcelas_Click()
    Dim db
    Dim rs
    Dim i As Integer

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Parcelas")

    For i = 1 To Me.txt_Mov_NParcelas
    rs.AddNew
    rs("MovD_Mov") = Me.txt_Mov_ID
    rs("MovD_Parcela") = i & "/" & Me.txt_Mov_NParcelas
    rs("MovD_Valor") = txt_Mov_Valor / txt_Mov_NParcelas
    rs("MovD_Venc") = DateAdd("m", i - 1, Forms!frm_Movimento!txt_Mov_Vencimento) 'Gera as parcelas de Mês em mês

    If Weekday(RS("MovD_Venc")) = 1 Or Weekday(RS("MovD_Venc")) = 7 Then
    Do
    IncrementaData:
    RS("MovD_Venc") = DateAdd("d", 1, RS("MovD_Venc"))
    If Weekday(RS("MovD_Venc")) = 1 Or Weekday(RS("MovD_Venc")) = 7 Then
    GoTo IncrementaData
    Else
    Exit Do
    End If
    Loop
    End If

    rs.Update
    Next

    rs.Close
    db.Close

    End If

    End Sub


    Última edição por Assis em Qui 02 Jul 2015, 22:30, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 16/02/2013

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  gutobrotas em Sex 03 Jul 2015, 14:09

    Os numeros 1 e 7 sao respectivamente domingo e sabado?
    Posso fazer isso para 2=segunda????
    Obrigado
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3047
    Registrado : 06/11/2009

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  Assis em Sex 03 Jul 2015, 17:57

    Claro que pode.


    .................................................................................
    *** Só sei que nada sei ***

    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 16/02/2013

    Re: [Resolvido]Parcelas pulando sábado e domingo

    Mensagem  gutobrotas em Sex 03 Jul 2015, 19:28

    Obrigado, vou tentar adaptar pro meu sisteminha aqui!

      Data/hora atual: Qui 14 Dez 2017, 04:26