функция - аналог time из С

[Juffin]

Надо получить время в секундах, как в функции time() из С, но в Дельфи. Как?

[Sibedir]

Время чего?

[_SERGEYX_]

Если не изменяет память, в Си функция time() возвращает количество секунд
от нуля часов 01.01.1980 до настоящего момента. Так?
Значит в общих чертах должно выглядеть так

uses DateUtils;

ShowMessage(FloatToStr(SecondsBetween(StrToDateTime('01.01.1980 00:00:00'), Now)));

Ну, и строку с датой-временем кодируй... чтоб не зависела от формата Винды...

[Sibedir]

Сори, не понял вопрос. Наверное переработал.

По теме

var
  t1, t2: TDateTime;
begin
  t1 := StrToDateTime('30.12.1899 00:00:00');
  t2 := StrToDateTime('29.12.1899 23:59:50');

  ShowMessage (FloatToStr(t2-t1));

  ShowMessage ('сек = ' + IntToStr(SecondsBetween (t1, t2)));
end;

Второй ShowMessage вернет неправильное значение. Почитайте хэлп оп TDateTime и все поймете.
StrToDateTime c времени раньше 30.12.1899 00:00:00 ведет себя мягко говоря не корректно. Но, как говорится, так исторически сложилось. Видимо компу так легче. Хотя как по мне, так это бред.

2 _SERGEYX_

Ну, и строку с датой-временем кодируй... чтоб не зависела от формата Винды...

А что значит - кодируй?

[_SERGEYX_]

А что значит - кодируй?

Ну, в настройках Windows дата может быть такой
dd.mm.yyyy или такой dd/mm/yy или такой yyyy-mm-dd...
Поэтому логично дату 01.01.1980 получить так

var d: TDateTime;
begin
d:= EncodeDate(1980,1,1) + EncodeTime(0,0,0,0);
ShowMessage(FormatDateTime('dd.mm.yyyy hh:nn:ss',d));
end;