UnixToDateTime

[nibufep]

Доброго времени суток!

Res := UnixToDateTime('1462379019');
date := DateToStr(Res);

получаю только дату 04.05.2016, а как получить и время?

[Аватар]

http://www.delphibasics.ru/DateTimeToStr.php

[nibufep]

а из-за чего разница в 5 часов?

[Serge_Bliznykov]

может из-за часового пояса? (см. поясное время)
у вас какой часовой пояс? (UTC/GMT +сколько?)

[nibufep]

UTC +3 часа

[Serge_Bliznykov]

хм... странно.

А посмотрите на stackoverflow - http://stackoverflow.com/questions/2...etounix-in-utc

ну, и если не поможет, тогда на этот пример - [Lazarus] UnixToDateTime and time zone

[nibufep]

    Res := UnixToDateTime(StrToInt(JSON.GetValue<string>('response[0].last_seen.time')));
    Res := UniversalTimeToLocal(Res);

    status_online.Caption := DateTimeToStr(Res);

попробовал так, не помогает

[nibufep]

up ...

[Masam]

Можно так сделать:

Date:=DateToStr(UnixTimeToDateTime(strtoint(Edit1.Text)));
Time:=TimeToStr(UnixTimeToDateTime(strtoint(Edit1.Text)));
memo1.Lines.Add(Date+' '+Time);

Или так (DT - выходящая строка):

DateTimeToString(DT, 'dd/mm/yyyy hh:mm:ss', UnixTimeToDateTime(strtoint(Edit1.Text)));