Diferença de Segundos entre duas Datas

[Spider Masters 0]

Olá amigos,Poderiam me dar uma dica de como obter a diferença em segundos entre duas datas?Utilizo o Delphi 7.Obrigado.

[marcio.theis 3]

Você pode usar a unit DateUtils, declare a mesma no seu uses, e depois use a função SecondsBetween, pequeno exemplo:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	data1, data2: TDateTime;begindata1:=StrToDateTime('11/09/2007 11:00:00');data2:=StrToDateTime('11/09/2007 11:10:00');ShowMessage(IntToStr(SecondsBetween(data1,data2)));end;

[Spider Masters 0]

Muito obrigado pela colaboração, a função era exatamente o que eu procurava.Abraços,Spider

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif