Как перевести TDateTime в Integer?

[Crystallon]

Подскажите пожалуйста, как перевести TDateTime в Integer? Или это невозможно?

[Пепел Феникса]

а зачем?
что вы получить хотите?

[romlo]

Используйте функцию DecodeDateTime. Она разбивает дату на год, месяц и т.д. вплоть до миллисекунды.

[Serge_Bliznykov]

какой вопрос - такой и ответ...

var d: TDateTime;
  n : integer;
begin
  d := Now; // возьмём текущую дату в переменную типа TDateTime

  // а вот получить целое число дней в Integer
  n := trunc(d);
...

[Crystallon]

Я хочу получить время в виде количества секунд аналогично тому как выдает функция time в PHP.
Простите за хреновую постановку вопроса.

[Аватар]

var Hour, Min, Sec, MSec: Word;
...
DecodeTime(Now,Hour,Min,Sec,MSec);
Result:=Hour*3600+Min*60+Sec;

[Пепел Феникса]

DateTimeToUnix(Now)

?
вроде оно судя по описанию.

Аватар, в PHP/С время иначе исчисляется, кстати для вашего кода есть DateTimeToTimeStamp, оно идет с какого то срока, вроде 1970 год какого то дня.

[Crystallon]

Проблема решена, тему можно закрывать.
Всем спасибо за ответы.

function GetSec(const aPeriod : TDateTime) : Int64;
const
  K = 24 * 60 * 60;
begin
  Result := Round( Int(aPeriod * K) );
end;

Пепел Феникса
Да время там исчисляется начиная с другого дня, но в моем случае это неважно, я использую время которое отсчитывается с момента запуска ОС.