ALTERNANDO DIAS

NEGRON 27/02/2010 16:02:02
#335552
Boa Tarde Galera

Galera a minha dúvida é a seguinte:

Estou desenvolvendo um sistema para gerar parcelas de pagamento, vejam a tela em anexo,
eu consegui gerar normalmente as parcelas, como vcs podem ver no exemplo.
Agora a minha dúvida é em relação a alterar o dia de pagamento. Porque por exemplo
a pessoa vai fazer uma compra ai ela pede para parcelar em 6 vezes e com vencimento
todo dia 05; a minha dificuldade é como altero o dia e coloco dia 05.
Por favor me ajudem!!!!!]
SINKERTEC 27/02/2010 16:32:56
#335555


Simples meu caro


CboParcelas.text = 6
txtDataVencimento = [Ô]05/03/2010[Ô]

LstParcelas.AddItem txtDataVencimento

For X = 1 to CboParcelas.Text - 1

LstParcelas.AddItem DateAdd([Ô]m[Ô],1, txtDataVencimento)

Next X

Tenta ae...boa sorte
CAIO.FR.SP 27/02/2010 16:44:06
#335556 Resposta escolhida 
dim dia as integer, mes as integer, ano as integer
dim data as date
dia = txt_diapgto.text
mes = month(date)
ano = year(date)
for i=1 to txt_prazo.text
   mes = mes + 1
   if mes = 13 then
      mes = 1
   endif
   data = cdate(dia & [Ô]/[Ô] & mes & [Ô]/[Ô] & ano) 
   set lst = list1.listitems.add
   with lst
         .text = i
         .subitems(1) = data
     end with
next i
MOREIRA 27/02/2010 17:42:17
#335559
post seu código....
NEGRON 27/02/2010 20:06:38
#335570
Boa Noite Galera deu certo!!! ..... utilizei o mesmo raciocionio do código do CAIO FR SP
Valeu CAIO, valeu galera.

vejam esse é o código já funcionando
  
 Dim TESTE As String
    Dim valor, DIAS As Variant
    Dim DT_FINAL As Variant
    Dim MES As Integer
    Dim ANO As Integer
    Dim DIA As String
    Dim I As Single


    For I = 1 To txtprazo
        valor = DateAdd([Ô]m[Ô], I, DTInicio)
        MES = DatePart([Ô]m[Ô], valor)
        ANO = DatePart([Ô]yyyy[Ô], valor)
        DIA = TxtDiapag.Text
        DT_FINAL = CDate(DIA & [Ô]/[Ô] & MES & [Ô]/[Ô] & ANO)
        Set lista = ListView1.ListItems.Add(, , I)
        lista.SubItems(1) = DT_FINAL
    Next


Galera o prazo é em meses

Outra coisa que gostaria de pedir.... é para que todas as dúvidas que fossem resolvidas, principalmente sobre códigos que fossem postados os codigos, corretos e funcionando...
por isso ajudaria e muito a galera

Valeu gente Brigadão
Tópico encerrado , respostas não são mais permitidas
Voltar