Функция перевод текста в формат Дата/Время

Комментарии

• andreymx

  May 2009 отредактировано 00:13

  написал:

  В Делфи это переводится в дату со временем без проблем, через свойство field-a датасета - DisplayFormat.

  по-моему, DisplayFormat - это НЕ перевод в дату со временем, а просто форматирование.
  А хранить "дату со временем" в bigint - это извращение.
  Хоть как она хранится? Приведите пример.
• shazz

  May 2009 отредактировано 00:13

  я понимаю, что извращение, но это не моя база, поэтому могу только читать.
  Вот пример числа, которое хранится: 2615227204, в переводе это: 31.12.2017 23:59:00
  Пробовал и через компоненты подключаться к запросу и внутри визуального редактора - все равно не показывается дата.
• shazz

  May 2009 отредактировано 00:13

  Всем спасибо, тему закрываю. Решение найдено. Правда не средствами FastReport.
• shazz

  May 2009 отредактировано 00:13

  Хотя кому интересно, то код функции перевода из bigint в datetime:
  
  function TPropusk.MegaportDateToDate(iMgDate: Int64): TDateTime;
  var
  ldate : LongWord;
  beginDate : TDateTime;
  begin
  ldate := iMgDate;
  beginDate := EncodeDate((ldate shr 25)+1940,1,1);
  Result := ((ldate shl 7) shr 7)/86400+beginDate;
  end;