[Resolvido]Alteração no sistema Parcelas do Mestre João Paulo

No cálculo de parcela ele esta de 30 em 30 dias.. como aplicar para ser de 15 em 15 o intervalo de dias entre as parcelas?

If Not Resto <= 0 Then
'For I = 1 To 70
For I = 1 To Me.q_parc
With rs
.AddNew
!ID_Pedido = Me.Num_OR
!Num_parc = I & "/"
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.DataPedido))
MsgBox !Data_venc
!Val_parc = Me.v_parc
.Update
End With
Next


Grato

Criei uma variável

Dim X As Double

Carreguei a variável com valor 0

e no código adicionei esta variavel + 15

Aplicando-a no DateAdd

Código:


If Not Resto <= 0 Then
StrInterval = 0
'For I = 1 To 70
For I = 1 To Me.q_parc
With rs
    .AddNew
    !ID_Pedido = Me.Num_OR
    !Num_parc = I & "/"
    !Num_parc = I & "/" & Me.q_parc
    X = X + Val(15)
    !Data_venc = DateAdd("D", X, (Me.DataPedido))
    !Val_parc = Me.v_parc
    .Update
End With

Cumprimentos.