How to formulate Unix in Delphi?

Question

Delphi

I use function

UnixStartDate: TDateTime = 25569.0;

function DateTimeToUnix(ConvDate: TDateTime): Longint;
begin
  Result := Round((ConvDate - UnixStartDate) * 86400);
end;

I get: 1473978988
and I need: 1470518278402
ShowMessage(inttostr(DateTimeToUnix(Now)));
it also gives out 10 digits, when you need 13
, can someone tell me the function

Answer 1

DateUtils.MilliSecondsBetween(ConvDate, 0);