Datas

Delphi

01/04/2004

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


Ldrabelo

Ldrabelo

Curtidas 0

Respostas

Marco Salles

Marco Salles

01/04/2004

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 :?: :?:


GOSTEI 0
Marcio.theis

Marcio.theis

01/04/2004

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


GOSTEI 0
Eniosb

Eniosb

01/04/2004

Se quiser mudar somente o mês, use a função IncMonth():

function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer): TDateTime;


T+


GOSTEI 0
POSTAR