unix timestamp > Data(DD.MM.YYYY)

[XerSon]

Всем Привет,

Есть дата в секундах: 1451563200
Что соответствует дате: 31st December 2015 12:00:00 PM (UTC)
Проверялось тут: http://unixtime.info

Вопрос: Как перевести кол-во секунд в дату в формате: DD.MM.YYYY

З.Ы. Поиск по форуму не дал желаемого результата.

Delphi XE3

[Аватар]

http://compfaq.ru/Question.aspx?id=8...3-9b68164deaad

[XerSon]

Сообщение от Аватар

http://compfaq.ru/Question.aspx?id=8...3-9b68164deaad

function UnixTimeToDateTime(UnixTime : LongInt): TDate;
begin
    Result := DateTimeToStr(UnixTime / SecPerDay + Offset1970);
end;

[dcc32 Error] uUnixToDate.pas(57): E2010 Incompatible types: 'TDate' and 'string'

[Аватар]

А заглянуть в HELP и увидеть, что DateTimeToStr возвращает String и подправить тип результата UnixTimeToDateTime на String слабо?

[XerSon]

Сообщение от Аватар

А заглянуть в HELP и увидеть, что DateTimeToStr возвращает String и подправить тип результата UnixTimeToDateTime на String слабо?

Весело, ну ок.

[XerSon]

Допилил для себя:

function UnixTimeToDateTime(UnixTime: LongInt): String;
const
  SecPerDay = 86400;
  Offset1970 = 25569;
var
  Source, Target: string;
begin
  Source := DateTimeToStr(UnixTime / SecPerDay + Offset1970);
  Target := Copy(Source, 1, 10);
  Result := Target;
end;

Юзаем так:
...
Edit2.Text := UnixTimeToDateTime(StrToInt(Edit1.Text));
...

[DeathAngels]

Сообщение от XerSon

Допилил для себя:

function UnixTimeToDateTime(UnixTime: LongInt): String;
const
  SecPerDay = 86400;
  Offset1970 = 25569;
var
  Source, Target: string;
begin
  Source := DateTimeToStr(UnixTime / SecPerDay + Offset1970);
  Target := Copy(Source, 1, 10);
  Result := Target;
end;

Юзаем так:
...
Edit2.Text := UnixTimeToDateTime(StrToInt(Edit1.Text));
...

А обратно можно? из обычной даты в unix ?

[s-andriano]

Конечно можно.
Только будет гораздо проще склеивать обычную дату из года, месяца, дня, часов, минут и секунд, чем парсить строку. Тем более, что единого международного способа записи даты/времени не существует.

[Serge_Bliznykov]

вот, когда то "выгрызал" код из библиотеки TurboPower Abbrevia

вдруг это то, что Вы ищите...

implementation

{$R *.DFM}
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;


procedure TForm1.Button1Click(Sender: TObject);
var dt : TDateTime;
begin
  dt := EncodeDate(1995,8,3);
  Button1.Caption := IntToStr(  AbDateTimeToUnixTime( now )  );
end;

[GunSmoker]

Открою тайну: в Delphi есть готовые функции для конвертации всех распространённых форматов.