Problemas com data
10/04/2003
0
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
Curtir tópico
+ 0
Responder
Posts
10/04/2003
Delphor
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;
Responder
10/04/2003
Amjorge
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)