Получить количество секунд с 1970?

[men232]

Обыскал весь форум а ответа не нашел. Может есть у кого решение?
Нужно узнать кол-во секунд с 1970 года по текущий момент!

[Utkin]

Года переводишь в дни. Дни в секунды. В сутках 86400 секунд. Делай поправку на високосные года.

[men232]

ммм... есть готовый код!? Или пример! Суть я понял, как реализовать программно не знаю!

[p51x]

хоть язык бы указал

[Utkin]

Пусть х=текущая_дата
Тогда всего_лет=х-1970
Дни_с_високосными_годами=всего_лет* 365+целое_от(всего_лет/4)
Секунды=дни_с_високосными_годами*86 400

Возможно еще придется один день досчитывать, если 1970 високосный...

[men232]

Язык Delphi! во что написал:

T1:=Now;
T2:=T1-1970;
T3:=T2*365+Int(X1/4);
T4:=T3*86400;
Time:=DateTimeToStr(T3);

Так что ли? И мой результат x4? Он равен - 19.11.40662 10:08:15
Мне нужно что то типо такого получить "1311931381"

[Utkin]

Не не так. 2011-1970. Правда надо еще до августа число дней прибавить...

[men232]

А можно ли сделать это автоматически! Не хочется перекомпелировать каждый раз!

Попробовал как вы сказали, не получилось (20.12.1940) вот что вышло а нужно типо такое "1311931381"

Вот нашел сайт, там это всё в онлайне делается, подобное нужно сделать в delphi

[Serge_Bliznykov]

вытащил функцию
function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
из модуля ABBREVIA: AbUtils.pas 3.05 (входит в состав ABBREVIA)

const
  Date1900 {: LongInt} = $0001AC05;  {Julian day count for 01/01/1900 -- TDateTime Start Date}
  Date1970 {: LongInt} = $00020FE4;  {Julian day count for 01/01/1970 -- Unix Start Date}
  Unix0Date: TDateTime = 25568;      {Date1970 - Date1900}

  SecondsInDay    = 86400;  {Number of seconds in a day}
  SecondsInHour   =  3600;  {Number of seconds in an hour}
  SecondsInMinute =    60;  {Number of seconds in a minute}
  HoursInDay      =    24;  {Number of hours in a day}
  MinutesInHour   =    60;  {Number of minutes in an hour}
  MinutesInDay    =  1440;  {Number of minutes in a day}


function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
var
  Hrs, Mins, Secs, MSecs : Word;
  Dt, Tm : TDateTime;
begin
  Dt := Trunc(DateTime);
  Tm := DateTime - Dt;
  if Dt < Unix0Date then
    Result := 0
  else
    Result := Trunc(Dt - Unix0Date) * SecondsInDay;

  DecodeTime(Tm, Hrs, Mins, Secs, MSecs);
  Result := Result + (Hrs * SecondsInHour) + (Mins * SecondsInMinute) + Secs;
end;

тестируйте...

[Serge_Bliznykov]

men232, Вы уверены, что понимаете, чего хотите?!!

Нужно узнать кол-во секунд с 1970 года по текущий момент!

получилось (20.12.1940) вот что вышло а нужно типо такое "1311931381"

Вам не кажется, что нельзя сказать, сколько секунд прошло с 1970 года, если год 1940 ?!!!