Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 10/03/2008 13:05 hs
Utilize o DateSerial da seguinte forma prestação = DateSerial(Year(Date), Month(data inicial das prestações) + 1, "10")
então supondo que a primeeira parcela seja 01/02/08 a seguda será 01/03/08, onde month é o mês mais 1 espero ter ajudado |
|
|
|
|
|
|
|
Postada em 10/03/2008 14:28 hs
não entendi como vai haver problema na virada de ano, mas fiz um exemplo para ver em que resultado obteria Dim meses As Integer
Dim vencim As String
Dim ind As Integer DataCompra = "09/03/2008" ' primeiro vencimento
meses = 10 ' parcelas For ind = 1 To meses Step 1
MsgBox DateAdd("m", ind, DataCompra)
Next os resultados foram: 09/04/2008 ,09/05/2008, 09/07/2008, 09/08/2008, 09/09/2008, 09/10/2008, 09/11/2008, 09/12/2008, 09/01/2009, 09/02/2009 Se eu não entendi o problema por favor desconsidere
|
|
|
|
|
|
Postada em 10/03/2008 14:30 hs
corrigindo ..... os resultados foram: 09/04/2008 ,09/05/2008, 09/06/2008, 09/07/2008, 09/08/2008, 09/09/2008, 09/10/2008, 09/11/2008, 09/12/2008, 09/01/2009 |
|
|
|
|
|
Postada em 10/03/2008 14:47 hs
Meus Caros podem adicionar 100 meses lá que ele vai pegar a data de hoje mais 100 meses pra frente, Tio Bill pensou nisso, portanto não vai ter problemas se
( month(Data) + 1 ) >= a 13
Logo se for 13 ele irá pegar o mês de janeiro do proximo ano, caso tenham duvida façam o teste
|
|
|
|
|
|
Postada em 10/03/2008 21:46 hs
estou fazendo da seguinte forma: vecto1 = Date + 30 vecto2 = Date + 61 e assim vai. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/03/2008 22:24 hs
COLEGA FAZ O SEGUINTE FAÇA DESTA FORMA Primeiro crie um campo para definir quantas parcelas serão com o nome e Parcelas. em seguida crie um campo para a data da primeira parcela como o nome de PriParcela agora em um botão cole o seguinte código Dim parcelas As Integer
Dim PriParcela As String
ListParcelas.Clear
parcelas = 12 ' é apenas par referência
PriParcela = DateValue("10/03/08")
For P = 1 To parcelas
ListParcelas.AddItem "parcela " & P & "/" & parcelas & " -> " & Format(DateSerial(Year(Date), (Month(PriParcela) - 1) + P, Day(PriParcela)), "dd/mm/yy")
Next P eu utilizei um list para exibir os resultados veja se isto te ajuda |
|
|
|
|
