[Resolvido] Intervalo de datas

[ErgoProxi 1]

Olá, to desenvolvendo um sistema e1m vb.net e to com um pequeno impasse...

 

Existe um form de contas a pagar...

nesse form há um campo pra quantidade de parcelas...

quero que quando o usuário for cadastrar um numero de parcelas acima de 1, aumentar os meses de 1 em 1...

 

 

Segue o Insert

INSERT INTO contasfixaspagar(Conta, Descricao, Dia_Vencimento) Values
('" & cbcontas.Text & "','" & descricaoconta.Text & "','" & CDate(txtdiavenc.Text) & "')

 

pra inserir varias vezes eu fiz um FOR... só falta aumentar o valor dos meses em txtdiavenc.text...

alguma idéia?

[quintelab 91]

Converta o valor informado para uma variável datetime. Depois utilize o Método AddDays()

http://msdn.microsoft.com/pt-br/library/system.datetime.adddays.aspx

 

Abraços...

[ErgoProxi 1]

Converta o valor informado para uma variável datetime. Depois utilize o Método AddDays()

http://msdn.microsoft.com/pt-br/library/system.datetime.adddays.aspx

 

Abraços...

Thanks...

 

fiz assim

 

 For i = 0 To CInt(numparcelas.Text) Step 1
               vtemp2 = CInt(Format(data, "MM") + i)
               If vtemp2 < 10 Then
                   vtemp = "0"
               Else
                   vtemp = ""
               End If


                   If sqlconection.State = ConnectionState.Closed Then
                   sqlconection.Open()
               End If
               Dim SQLQStatement As String = "INSERT INTO contasfixaspagar(Conta, Descricao, Dia_Vencimento, Valor, Juros_Dia, Juros_Mes, Pagavel_em, Valor_Final) Values('" & cbcontas.Text & "','" & descricaoconta.Text & "','" & Format(dat, "yyyy") & "/" & Format(dat, "MM") + i & "/" & Format(dat, "dd") & "','" & txtvalor.Text & "','" & txtjurosdia.Text & "','" & txtjurosmes.Text & "','" & txtpagavelem.Text & "','" & txtvfinal.Text & "')"
               savedata(SQLQStatement)
           Next