procedure TForm1.Button1Click(Sender: TObject);

var

   Tempo : TTime;

Begin

  //  Necessito somar now() + 3 minutos e 25 segundos . COMO FAÇO ISSO? POR
FAVOR   

 

   Tempo := Now( ) +         2h3m:25s;

   label2.Caption := TimetoStr(tempo);

 

end;

Roberto



[As partes desta mensagem que não continham texto foram removidas]

Responder a