PDA

Ver la Versión Completa : Problemas con MinutesBetween


romansiux
20-05-2005, 03:00:15
Hola a todos...
Les agradecería mucho sus comentarios.
Tengo Delphi 7 y no se como utilizar el MinutesBetween y el SecondsBetween.
En mi Form tengo 2 botones al momento de aplastar el botón 1 quiero que enpiece un contador, y que en el momento de aplastar el botón 2 se detenga el contador, y que me muestre en un edit los minutos y segundos transcurridos.

Gracias...

Saludos...

eduarcol
20-05-2005, 06:26:26
y cual es la duda, si ya realizastes las pruebas pongamos un ejemplo si transcurrieron 2 minutos y 5 segundos entre el click de los botones, te habras dado cuenta de que el minutesbetween te da como resultado 2 mientras q el secondsbetween te daria 125, eso quiere decir qeu si le restas los dos minutos * 60(segundos que componen un minuto) obtendrias el valor real.

Vamos qe no te pongo el codigo para qe te esfuerzes un poco, saludos

Lepe
20-05-2005, 10:31:01
Segun entiendo, el problema no son las funciones en sí, sino como hacerlo....

Cuando pones el timer en marcha, guardas la fecha y hora actual en una variable, y al detenerlo, le pasas la fecha y hora actual y la que guardaste a esas funciones, y ya tienes la solución.

Un saludo

Josep Lluis
20-05-2005, 12:59:04
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

romansiux
21-05-2005, 14:27:56
Gracias a todos por su ayuda, ya me funciono.

Saludos.