Em 3/7/2009 17:12, EmbarcaDelphi escreveu:
>
>
>
> rsrsrs, como disse, fiz rápido para ver os resultados, mas não consegui.
> Com mais calma eu solucionei.
>
> Ficou assim:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Data : TDateTime;
> DataHora : TDateTime;
> D,M,A,
> hh,mm,ss,
> m
rsrsrs, como disse, fiz rápido para ver os resultados, mas não consegui.
Com mais calma eu solucionei.
Ficou assim:
procedure TForm1.Button1Click(Sender: TObject);
var
Data : TDateTime;
DataHora : TDateTime;
D,M,A,
hh,mm,ss,
ms: Word;
begin
Data := (Date + 30);
DecodeDate(Data,A,M,D)
2 matches
Mail list logo
