|
|
Postada em 09/03/2008 23:16 hs
Boa noite.. Pessoal tenho um sistema e onde divido as parcelas (Crediário) é em dias aleatório como o ex.: 09/03/2008, 10/04/2008. Porém preciso que os vencimento fiquem sempre com o mesmo dia do mes, assim: 09/03/2008, 09/04/2008, 09/05/2008. Caso alguém possa me ajudar, desde já agradeço. Abraço. Luciano. |
|
|
|
|
|
|
|
Postada em 10/03/2008 08:52 hs
Utilize a duncao DateSerial, Fique atento para anos Bisexto, caso o vencimento da parcela venha cair dia 29 de fev.
P1 = DataPrimeiraParcela
For x = 1 to QtdParcelas
DataParcela = DateSerial(Year(P1), Month(P1) + X, Day(P1))
Next X
|
|
|
|
|
|
Postada em 10/03/2008 11:13 hs
Obrigado, mas não consegui fazar funcionar esse código q. vc me passou, poderia ser mais específico. Desde já agradeço. Luciano |
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 10/03/2008 11:44 hs
Analista tudo depende de como vc está trabalhando com as datas... eu costumo usar NÚMEROS ao invés de data o código acima do macaubal está meio errado... o certo é... P1 = DataPrimeiraParcela
For x = 1 to QtdParcelas
DataParcela = DateSerial(Year(P1), Month(P1) + 1, Day(P1))
Next X porém ainda tem q verificar se o ANO não virou...(Month(P1) + 1>=13) |
|
|
|
|
|
Postada em 10/03/2008 11:54 hs
Fica difícil vc usar a função dateadd ? dateadd("m", 1, "a data")
esta função incrementa apenas o mes |
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 10/03/2008 12:02 hs
dateadd vai cair no mesmo esquema da função anterior... qdo vira o ano tem q mexer.... |
|
|
|
