É amigos, por favor, esqueçam. Está tudo certo... apesar das datas serem
totalmente "malucas", elas tem 30 dias entre elas... desde o início.. :o)
[]s
2008/5/14 Fellipe Henrique <[EMAIL PROTECTED]>:
> Olá Marcos, obrigado pela resposta, o problema, é que nem sempre será 30
> dias... as vezes o usuário pode por 15 dias...
>
> fiz este pequeno exemplo pra mostrar o problema:
>
> var
> i:integer;
> LastDate: TDate;
> begin
> LastDate := Date;
> for i := 1 to 100 do
> begin
> ListBox1.Items.Add(FormatDateTime('dd/mm/yyyy', (LastDate)));
> LastDate := (LastDate + 30);
> end;
>
> Repare nas datas como elas ficam totalmente malucas.
>
> []s
>
> 2008/5/14 Marcos André <[EMAIL PROTECTED]>:
>
> tenta usar ou criar uma função inc month.
>>
>> qq coisa vc pode decompor a data em delphi "decode" e incrementar somente
>> o
>> mês
>>
>> Abraço
>>
>> 2008/5/14 Fellipe Henrique <[EMAIL PROTECTED] <fellipeh%40gmail.com>>:
>>
>>
>> > Olá amigos, seguindo exemplos achados na internet, tenho uma função que
>> > acrescenta N dias a uma data, vamos supor,:
>> >
>> > 14/05/2008 30-> 14/06/2008 60-> 14/07/2008 90->14/08/2008
>> >
>> > Faço assim: DataVencimento := DataVenda + QtdDias;
>> >
>> > Porém, quando o usuário poe 26 vezes (de 30 em 30 dias), dá dias
>> errados,
>> > diferença de 10 a 15 dias entre as dadas... exemplo, no caso acima: tudo
>> > deveria ficar entre 12 e 15 no máximo, por causa dos meses de 28, 29,
>> 30,
>> > 31
>> > dias. mas ao inves disso, no final fica datas assim: 02/05/2010, ou
>> seja,
>> > diferença de mais de 10 dias.
>> >
>> > O que estou fazendo de errado?
>> >
>> > Obrigado desde já.
>> >
>> > []s
>> >
>> > --
>> > _________________________________
>> > T.·.F.·.A.·.
>> > Fellipe Henrique
>> > [EMAIL PROTECTED] <fellipeh%40gmail.com> <fellipeh%40gmail.com>
>> >
>> > Sou a favor da lei LEI 607/2007
>> >
>> > [As partes desta mensagem que não continham texto foram removidas]
>> >
>> >
>> >
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>
>
>
> --
> _________________________________
> T.·.F.·.A.·.
> Fellipe Henrique
> [EMAIL PROTECTED]
>
> Sou a favor da lei LEI 607/2007
>
--
_________________________________
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]
Sou a favor da lei LEI 607/2007
[As partes desta mensagem que não continham texto foram removidas]
