Problemas com data
estou desenvolvendo uma aplicação que controla alunos de uma escola de informática. Quando eu matriculo um aluno em um curso, devo salvar registo na tabela de mensalidade com as respectivas datas do vencimentos. a intenção que alterne os meses.
10/04, 10/05, 10/06
so que a rotina que eu criei esta alternado os dias tb, uma vez que os meses nao tem sempre a mesma qtd de dias.
como eu faco pra incrementar apenas os meses, alguem pode me ajudar?
agradeco pela atencao
10/04, 10/05, 10/06
so que a rotina que eu criei esta alternado os dias tb, uma vez que os meses nao tem sempre a mesma qtd de dias.
como eu faco pra incrementar apenas os meses, alguem pode me ajudar?
agradeco pela atencao
Dilp
Curtidas 0
Respostas
Delphor
10/04/2003
presumo q vc esta fazendo:
data:=data+30;
e deve estar saindo tipo 10/3, 9/4, 9/5 eh isso?
se for, utilize a funcao incmonth:
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;
data:=data+30;
e deve estar saindo tipo 10/3, 9/4, 9/5 eh isso?
se for, utilize a funcao incmonth:
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;
GOSTEI 0
Amjorge
10/04/2003
Complementando:
For i := 1 to NumeroDeMeses do
begin
Vencimento := IncMonth(DataInicial, i - 1);
end;
i é o número de meses que se deseja adicionar (ou subtrair, use -1, -2, -3 . . .)
DataInicial a Data do primeiro vencimento em questão
For i := 1 to NumeroDeMeses do
begin
Vencimento := IncMonth(DataInicial, i - 1);
end;
i é o número de meses que se deseja adicionar (ou subtrair, use -1, -2, -3 . . .)
DataInicial a Data do primeiro vencimento em questão
GOSTEI 0