Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Преобразование даты и времени [D7]


Dibed ©   (2012-09-19 08:46:00) 

Добрый день.

Подскажите ответ:

Есть база mysql - в базе хранятся данные даты и времени в формете int ( integer )

вот такого формата - 1151930164

как его можно преобразовать в обычный - читаемый формат даты и времени ?

Пробывал


var
d:TDateTime;
begin
d := StrToDateTime('01.01.1970') + 1151930165;
caption := DateTimeToStr(d);


и так


var
d:TDateTime;
begin
d := 1151930165;
caption := DateTimeToStr(d);


выдает несуразные значения. Как мжет еще хранится дата и время в Int ?


Anatoly Podgoretsky   (2012-09-19 10:55:00) [1]

Убей свою кривую функцию, в Дельфи есть правильная, с таким же названием.


Dibed   (2012-09-19 09:17:00) [2]


function UnixToDateTime(USec: Longint): TDateTime;
const
 UnixStartDate: TDateTime = 25569.0;
begin
 Result := (Usec / 86400) + UnixStartDate;
end;


Всем спасибо - все сободны


Наверх

Титульная страница Поиск, карта сайта Написать письмо