SecondsBetween

[ale_metall]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
minutos, segundos, segundosResto: Int64;  momento1,momento2:Tdatetime;
begin
momento1:=strtodatetime('20/10/07 22:30:10');
momento2:=(time)
segundos:= Function SecondsBetween(momento1,momento2): Int64;
minutos:= segundos div 60;
segundosResto:= segundos mod 60;
Edit1.Text:= IntToStr(minutos) + ' minutos y '
+ IntToStr(segundosResto) + 'segundos';
end;

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!!!

[ale_metall]

me olvide el ";" del time, pero no tiene nada que ver.

[fidel]

Mira a ver así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  minutos, segundos, segundosResto: Int64;
  momento1, momento2: Tdatetime;
begin
  momento1 := strtodatetime('20/10/07 22:30:10');
  momento2 := now;
  segundos := SecondsBetween(momento1,momento2);
  minutos := segundos div 60;
  segundosResto := segundos mod 60;
  Edit1.Text := IntToStr(minutos) + ' minutos y ' + IntToStr(segundosResto) + 'segundos';
end;

[gabbo]

//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;

[ale_metall]

Gracias amigos, era eso.. no agregue dateutils en uses, ahora funciona!!!

agradecido...

saludos.