Dificuldade de acrescentar 1 dia em uma data
Oi Pessoal,
Estou com uma dificuldade aqui para acrescentar um dia em uma data.
Descrevendo por cima o processo, eu preciso que meu sistema "ande" dia-a-dia de uma data a outra em um while e dependendo de algumas verificações ele grava algumas coisas no banco de dados.
O problema está em "andar dia-a-dia".
Criei uma variável chamada vDiaAnalisar do tipo TDate.
Essa variável recebe o primeiro dia, e no while há uma verificação para que aconteça o loop até que ela chegue na data final.
Dentro do While tentei colocar assim:
vDiaAnalizar := vDiaAnalizar + 1;
Ele até faz a maioria dos dias, mas algumas datas ele simplesmente pula.
Por exemplo, do dia 30/08 ele pula para o dia 01/09, e "esquece" do dia 31/08.
Outro exemplo: do dia 29/11 ele pula para o dia 01/12, o dia 30/11 é pulado tb...
Ou seja, todo último dia do mês ele pula...
Aí tentei assim:
vDataAnalizar := IncDay(vDataAnalizar, 1);
E o problema persiste.
Alguém tem idéia do pq ele está pulando o último dia dos meses?
Discussão (2)
Carregando comentários...