Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

В числовом поле, содержится дата...   Найти похожие ветки 

 
Игорь М   (2004-01-30 14:24) [0]

Есть поле числовое, в нём содержится число с 9 цифр, означающее дату. Пример:сейчас 29 января 2004г. 13-30, в поле этом эта дата фигурирует примерно так- 759850245.Так вот, как перевести это 9-ти значное число в поле даты ?В качестве примера могу привести ещё одно сопоставление сейчас 14 января 1980 г , 14-12 эта дата записываеца в числовое поле уже,как 7-ми значное число 2470285.Если есть какие соображения, то с удовольствием прочту их.


 
ZrenBy ©   (2004-01-30 14:50) [1]

Скорее всего это число секунд с 1 января 1980 года

select dateadd(ss,759850245,"19800101")

получаем

2004-01-29 13:30:45.000


 
Игорь М   (2004-01-30 15:30) [2]

А чтобы команду такую подавать (select dateadd(ss,759850245,"19800101"), то нужно MS SQL себе ставить ?


 
ZrenBy ©   (2004-01-30 15:40) [3]

Зачем? Это я так, для примера.


var st : SYSTEMTIME;
ft : FILETIME;
li : Int64;
MyDate : Integer;
begin
MyDate := 759850245;

ZeroMemory(@st,SizeOf(st));
st.wYear := 1980; st.wMonth := 1; st.wDay := 1;

SystemTimeToFileTime(st,ft);
li := PInt64(@ft)^ + Int64(MyDate)*10000000;
ft := PFILETIME(@li)^;
FileTimeToSystemTime(ft,st);
Application.MessageBox(PChar(FormatDateTime("dd.mm.yyyy hh:nn:ss",
EncodeDate(st.wYear,st.wMonth,st.wDay)+
EncodeTime(st.wHour,st.wMinute,st.wSecond,st.wMilliseconds))),
"",0);


 
Игорь М   (2004-02-02 10:36) [4]

Большое спасибо. То что надо !



Страницы: 1 вся ветка

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
3-79600
samalex
2004-02-02 12:38
2004.02.25
Не работает ADO под win98


11-79688
=Sniper=
2003-06-07 00:24
2004.02.25
Format( %0.0f ,[dwCool]);


1-79845
KOSTIK
2004-02-10 19:20
2004.02.25
Рисунок из TImageList в TImage


11-79690
ratamahatta
2003-06-05 18:44
2004.02.25
Размер заголовков в TKOLTabControl


3-79565
Андреич
2004-02-02 19:49
2004.02.25
Работа с файлами *.IBD