PARCELAS 7DIAS, 15DIAS E 30DIAS

JANDSONSISTENS 04/03/2017 17:02:58
#472132
Boa tarde galera do grupo, tudo belê?
brother[ô]s estou com uma duvida aqui ao gerar Parcelas nesses 3 Tipos.
adicionei 3 chekbox contendo 7 dias , 15 dias e 30 dias.
Hoje atualmente eu so gero parcelas com 30Dias. dai preciso adicionar outros tipos de parcelas. 7 Dias e 15 Dias.

abaixo segue minha função que utilizo para gerar as parcel7a para 30 Dias.
   Dim Venc As DateTime
                Venc = FormatDateTime(mkbData.Text, DateFormat.ShortDate)
                For i = 0 To Val(txtParcelas.Text) - 1
                    Venc = Venc.AddDays(30)
                    dgvFormapagto.Rows.Add(i + 1, Round((CDbl(Me.txtValor_02.Text)), 2), Mid(Venc.ToString, 1, 10), cbo_tipo.Text)
                Next


Alguem poderia me dar uma ajuda, como posso gerar para 7 Dias e 15 Dias . ?
seria aterar aqui?
  Venc = Venc.AddDays(30)
modificar de 30 para 7Dias ou 15 Dias?

DS2T 04/03/2017 17:22:11
#472137
Não dá pra saber direito, porque você não especificou o significado de cada controle.
Exemplo: txtValor_02 é o que? O valor da parcela?
Porque você está usando um Mid ali?

Se você alterar o 30 por 7, você consegue o resultado esperado?

Abraços!
JANDSONSISTENS 04/03/2017 17:24:41
#472138
Galera, desulpa ter postado minha duvida, conforme fui debugando aqui achei a solução
é so modificar em qual Chekbox q quero os tipo de parcelas 7, 15 e 30 dias;..;
so alterar aqui
  Venc = Venc.AddDays(30) 
Venc = Venc.AddDays(15)
Venc = Venc.AddDays(7)




so tem um detalhe, alguem consegue gerar parcelas fixas. tipo todo dia 30, todo dia 15, ou todo dia 7,
tipo gerar os 12 meses. apartir da primeira data q eu escolher. se for o dia 30
30/01/
28/02
30/03
30/04
.....
e assim sucessivamente. conforme o dia q eu escolher.
DS2T 04/03/2017 17:54:08
#472145
Veja o método AddMonths, da classe DateTime.

Abraços.
NICKOSOFT 04/03/2017 20:27:01
#472152 Resposta escolhida
Citação:

:
Galera, desulpa ter postado minha duvida, conforme fui debugando aqui achei a solução
é so modificar em qual Chekbox q quero os tipo de parcelas 7, 15 e 30 dias;..;
so alterar aqui

  Venc = Venc.AddDays(30) 
Venc = Venc.AddDays(15)
Venc = Venc.AddDays(7)




so tem um detalhe, alguem consegue gerar parcelas fixas. tipo todo dia 30, todo dia 15, ou todo dia 7,
tipo gerar os 12 meses. apartir da primeira data q eu escolher. se for o dia 30
30/01/
28/02
30/03
30/04
.....
e assim sucessivamente. conforme o dia q eu escolher.


  
    Public Function UltimoDia(datax As Date) As Date
        UltimoDia = DateAdd([Ô]m[Ô], 1, DateSerial(Year(datax), Month(datax), 1))
        UltimoDia = DateAdd([Ô]d[Ô], -1, UltimoDia)
    End Function
JANDSONSISTENS 05/03/2017 16:26:56
#472179 
   Public Function UltimoDia(datax As Date) As Date
        UltimoDia = DateAdd([Ô]m[Ô], 1, DateSerial(Year(datax), Month(datax), 1))
        UltimoDia = DateAdd([Ô]d[Ô], -1, UltimoDia)
    End Function


NICKOSOFT, essa função seria para pegar o ultimo dia do mês?
NICKOSOFT 05/03/2017 18:36:20
#472187
exatamente
JANDSONSISTENS 05/03/2017 19:14:50
#472191
Citação:

:
exatamente



vlw

agora vou encerrar o topico

obrigado a todos.
vlw NICKOSOFT
Tópico encerrado , respostas não são mais permitidas
Voltar