SecondsBetween
Podrian decirme que estoy haciendo mal??? Delphi 6!! los errores son: missing operator or semicolon. Expression expected but 'FUNCTION' found Missing parameter type Unknown directive: 'minutos' Aclaro, necesito trabajar con tipo de datos: tdatetime y que me devuelva enteros!!! gracias amigos!!! |
me olvide el ";" del time, pero no tiene nada que ver.
|
Mira a ver así:
|
Solucion
//uses
// todos los anteriores + DateUtils; // hay que agregar 'DateUtils' en el 'uses', x eso no reconocia la funcion SecondsBetween... procedure TForm1.Button1Click(Sender: TObject); var minutos, segundos, segundosResto: Int64; momento1, momento2: Tdatetime; begin momento1 := strtodatetime('26/10/07 11:00:00'); momento2 := now; segundos := SecondsBetween(momento1, momento2); minutos := segundos div 60; segundosResto := segundos mod 60; Edit1.Text := IntToStr(minutos) + ' minutos y ' + IntToStr(segundosResto) + 'segundos'; end; |
Gracias amigos, era eso.. no agregue dateutils en uses, ahora funciona!!!
agradecido... saludos. |
La franja horaria es GMT +2. Ahora son las 11:01:12. |
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