Problemas con MinutesBetween
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... |
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 |
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 |
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 |
Gracias a todos por su ayuda, ya me funciono.
Saludos. |
La franja horaria es GMT +2. Ahora son las 15:00:49. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi