Não entendi bem o que você disse, mas ajudou muito para usar o EncodeDateTime
(Data e Hora juntos, não conhecia), tentei fazer algo rápido para ver se
solucionou, o código ficou grande demais, acho que deve ter outra maneira
menor. Compilou, mas ao executar deu um belo erro por causa do último parâmetro
do EncodeDateTime que são os milésimos de segundos que o TDateTime não aceita,
não sei como isolar este parâmetro. Eu tava fazendo assim:
procedure TForm1.Button1Click(Sender: TObject);
var
Data : TDateTime;
DataHora : TDateTime;
begin
Data := (Date + 30);
DataHora := StrToDateTime(FormatDateTime('dd/mm/yyyy hh:mm:ss',
EncodeDateTime(StrToInt(Copy(FormatDateTime('dd/mm/yyyy',Data),1,2)),
StrToInt(Copy(FormatDateTime('dd/mm/yyyy',Data),4,2)),
StrToInt(Copy(FormatDateTime('dd/mm/yyyy',Data),7,4)),
0,0,0,0)));
ShowMessage(DateTimeToStr(DataHora));
end;
Alguém pode ajudar aí? rsrs (nunca precisei de trabalhar com datas e horas),
que loucura!
-----------------------------------------
--- Em delphi-br@yahoogrupos.com.br, José Mário Silva Guedes <jmariogue...@...>
escreveu
>
> Já passei por situação parecida e solucionei dando um DecodeDate em vDaya,
> dando um EncodeDateTime depois, entendeu?
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
