Olá Felipe,
poh.. só tem uma saída... testa antes.. se for 30/60/90/180...etc dias, vc
incrementa o mês (pois será mes comercial) se não vc apenas soma nos dias...
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] <marcos%40e-easy.com.br>>:
>
>
> > 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><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>
> <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] <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]
