uses DateUtils; É necessário declarar DateUtils. Em versões mais recentes declare System.DateUtils. // Função : SecondsBetween( DataHoraInicial, DataHoraFinal ) // Retorno: Integer Exemplo de uso: 1 2 3 4 procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr( SecondsBetween(EncodeDate(2017, 5, 15), Date) )); end;procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr( SecondsBetween(EncodeDate(2017, 5, 15), Date) )); end; Post Views: 6.505