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);
DecodeTime(StrToTime('00:00:00'),hh,mm,ss,ms);
DataHora := EncodeDateTime(A,M,D,hh,mm,ss,ms);
ShowMessage(FormatDateTime('dd/mm/yyyy hh:mm:ss',DataHora));
end;
Tem como melhorar mais ainda?
Grato a todos
José Mário Silva Guedes escreveu:
>
>
> Amigo, assim fica complicado :)
> Use o DecodeDate para quebrar a data atual...
>
> Dai você usa os resultados no EncodeDateTime...
>
> .
>
>
