Alexandre, com esse tipo de cálculo há uma margem de erro quando o número de
meses for muito elevado, por exemplo 100 meses, visto que muitos meses terão 31
dias. Com essa sua conta você ignorando ao memos 50 dias, que dá mais de um
mês. O ideal é usar o IncMonth.
Luciano Calenzani Simões
Use IncMonth, segue exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
x : tdatetime;
begin
x := date;
x := IncMonth(x, 13);
showmessage(datetostr(x));
end;
Luciano Calenzani Simões
- Mensagem original
De: Antonio Mateus <[EMAIL PROTECTED]>
Para: delphi-br@yahoo
2 matches
Mail list logo
