Somar dias a uma data
23/03/2003
0
01/02/1992
Solucion
Posts
23/03/2003
Anonymous
Data := data +10;
c a data for 1/10/01 vai ficar 11/10/01
23/03/2003
Alphablend
sendo a variavel DATA do tipo date (ou DateTime) o Delphi já entende que vc quer adicionar dias as datas .,..
23/03/2003
Kanedasam
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var data : TdateTime ;
begin
data:= DATE();[color=blue:9a223ac6ec] // sem este parametro ficaria o
// resultado = 31/12/1899 em vez
// da data atual acrecida de um dia[/color:9a223ac6ec]
data:=data+1;
edit1.Text := DateToStr(data);
end;
end.
Clique aqui para fazer login e interagir na Comunidade :)