|
a ver si te puede servir
procedure TForm1.Button1Click(Sender: TObject);
begin
momento1:= now;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
minutos, segundos, segundosResto: Int64;
begin
momento2:= now;
segundos:= SecondsBetween(momento1, momento2);
minutos:= segundos div 60;
segundosResto:= segundos mod 60;
Edit1.Text:= IntToStr(minutos) + ' minutos y '
+ IntToStr(segundosResto) + 'segundos';
end;
No olvides declarar las variables, ni DateUtils en uses
|