UnixTime конвектр

[revijah]

Здравствуйте, форумчане!

Возник вопрос: есть время в unix, как мне его конвертировать в такой вид:

Если допустим:

Epoch timestamp: 1464106755
Обычное время: Tue, 24 May 2016 16:19:15 GMT

как из этого получить Сегодня 16:19

Если это предыдущий день:

Epoch timestamp: 1464020355
Обычное время: Mon, 23 May 2016 16:19:15 GMT

то получить Вчера 16:19

Если уже позавчера и дальше то вывести просто дату 22 May

Заранее благодарен!

[3D Hunter]

Подключите DateUtils к вашему модулю.

uses DateUtils;
...
function UnixTimeToMyFormat(const AUnixDT:Int64):string;
var
  LDT:TDateTime;
begin
  //конвертируем время из unix-формата в стандартный вид
  LDT:=UnixToDateTime(AUnixDT);

  //вычисляем результат
  case DaysBetween(Now,LDT) of
    0://если сегодня
      Result:=Format('Сегодня %s',[FormatDateTime('hh:nn',LDT)]);
    1://если вчера
      Result:=Format('Вчера %s',[FormatDateTime('hh:nn',LDT)]);
  else//любой более поздний день
    Result:=FormatDateTime('dd mmm',LDT);
  end;
end;

[revijah]

Сообщение от 3D Hunter

Подключите DateUtils к вашему модулю.

uses DateUtils;
...
function UnixTimeToMyFormat(const AUnixDT:Int64):string;
var
  LDT:TDateTime;
begin
  //конвертируем время из unix-формата в стандартный вид
  LDT:=UnixToDateTime(AUnixDT);

  //вычисляем результат
  case DaysBetween(Now,LDT) of
    0://если сегодня
      Result:=Format('Сегодня %s',[FormatDateTime('hh:nn',LDT)]);
    1://если вчера
      Result:=Format('Вчера %s',[FormatDateTime('hh:nn',LDT)]);
  else//любой более поздний день
    Result:=FormatDateTime('dd mmm',LDT);
  end;
end;

почему-то вчерашний день определяет как сегодня...

[revijah]

проблему решил!

  case trunc(Now) - trunc(LDT) of

[3D Hunter]

а вы учитываете GMT-формат времени? в каком часовом поясе ваше юниксовое время представлено? может в этом причина.

[revijah]

проблема была в том что функция DaysBetween возвращает разность в целых днях.
А вот учитывать GMT формат времени хотелось бы исходя из выставленных настроек в ОС, но не знаю как это сделать

[Аватар]

проблема была в том что функция DaysBetween возвращает разность в целых днях

Убери время из даты и все будет нормально возвращать

case DaysBetween(Trunc(Now),Trunc(LDT)) of
или
case DaysBetween(Date,Trunc(LDT)) of

А вот учитывать GMT формат времени хотелось бы исходя из выставленных настроек в ОС

GetTimeZoneInformation

[3D Hunter]

А вот учитывать GMT формат времени хотелось бы исходя из выставленных настроек в ОС, но не знаю как это сделать

Узнаете сдвиг вашего юниксового времени в соответствии с региональными настройками ОС:

  with TTimeZone.Local.GetUtcOffset(LDT) do
    <используйте свойство Hours:Integer>;

UPD:
Либо же используйте TTimeZone.Local.ToUniversalTime() или TTimeZone.Local.ToLocalTime().

[revijah]

А ещё вопрос сюда же, а как склонять месяц по падежам? т.е. что-бы выводилось не 08 май, а 8 мая?

[3D Hunter]

procedure TForm1.FormCreate(Sender: TObject);
const
  MY_MONTH_NAMES:array[1..12] of string = ('января','февраля','марта',
                                           'апреля','мая','июня','июля',
                                           'августа','сентября','октября',
                                           'ноября','декабря');
var
  i:Integer;
  LFS:TFormatSettings;
begin
  LFS:=TFormatSettings.Create;
  for i:=1 to 12 do
    LFS.ShortMonthNames[i]:=MY_MONTH_NAMES[i];

  Caption:=FormatDateTime('dd mmm',Now,LFS);
end;

Смысл понятен? А вообще все это есть в хелпе. Клавиша F1