Fórum Datas #223924
01/04/2004
0
Olá, estou gerando algumas duplicatas com vencimento a cada 30 dias, só que quando eu gero a primeira com vencimento para dia 10/04/2004 a segunda vem com vencimento para o dia 11/05/2004 e a outra pro dia 09/05/2004, gostaria que todas saissem com o mesmo dia de vencimento mudando somente o mes e o ano caso necessario tipo assim:
10/04/2004
10/05/2004
10/06/2004
.
.
.
10/01/2005
Luis
10/04/2004
10/05/2004
10/06/2004
.
.
.
10/01/2005
Luis
Ldrabelo
Curtir tópico
+ 0
Responder
Posts
01/04/2004
Marco Salles
Tá Muito Bem, Voce Já Paro Para Pensar Quando a Data DA Primeira Duplicata For 29/01/2003... Qual Será a Data Da Segunda Duplicata :?: :?: 29/02/2003 :arrow: Não Existe :!: :!: Coloca Para
01/03/2003 Ou Para 28/02/2003 :?: :?:
01/03/2003 Ou Para 28/02/2003 :?: :?:
Responder
Gostei + 0
01/04/2004
Marcio.theis
faça uma função que calcula o próximo mês e antes de salvar vc altera o dia. Como por exemplo.
dt:=DateToStr(tblDTVENCTO.Value);
dia:=10;
mes:=StrToInt(dt[4]+dt[5]);
ano:=StrToInt(dt[7]+dt[8]+dt[9]+dt[10]);
tblDTVENCTO.Value:=StrToDate(FormatFloat(´00´,dia) + ´/´ + FormatFloat(´00´,mes) + ´/´ + FormatFloat(´0000´,ano));
este seria um exemplo mais simples, pode-se fazer de formas mais dinâmicas
dt:=DateToStr(tblDTVENCTO.Value);
dia:=10;
mes:=StrToInt(dt[4]+dt[5]);
ano:=StrToInt(dt[7]+dt[8]+dt[9]+dt[10]);
tblDTVENCTO.Value:=StrToDate(FormatFloat(´00´,dia) + ´/´ + FormatFloat(´00´,mes) + ´/´ + FormatFloat(´0000´,ano));
este seria um exemplo mais simples, pode-se fazer de formas mais dinâmicas
Responder
Gostei + 0
01/04/2004
Eniosb
Se quiser mudar somente o mês, use a função IncMonth():
T+
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer): TDateTime;
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)