FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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!!! |
#2
|
|||
|
|||
me olvide el ";" del time, pero no tiene nada que ver.
|
#3
|
|||
|
|||
Mira a ver así:
Última edición por fidel fecha: 26-10-2007 a las 14:24:50. |
#4
|
|||
|
|||
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; |
#5
|
|||
|
|||
Gracias amigos, era eso.. no agregue dateutils en uses, ahora funciona!!!
agradecido... saludos. |
|
|
|