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

Вниз

InterBase и TTime   Найти похожие ветки 

 
BAA ©   (2002-06-04 19:03) [0]

Здрявствуйте,уважаемые...
Вопросеро собсно в следующем...Как в InterBase реализован тип TTime...TDateTime упорно записывает только Date - часть...Кому-то покажется смешным, но нет возмодности разбираться...Почитал Interbasовские туториалы - что-то совсем мутно...


 
Alexandr ©   (2002-06-05 07:07) [1]

если у тебя нет возможности разбираться, то у меня нет желания помогать тебе


 
Digitman ©   (2002-06-05 08:32) [2]

uses IBHeader;

{ определения из IBHeader
TGDS_QUAD = record
gds_quad_high : ISC_LONG;
gds_quad_low : UISC_LONG;
end;
TISC_QUAD = TGDS_QUAD;
}

const
MSecsPerDay10 = MSecsPerDay * 10;
IBDateDelta = 15018;


function DelphiDateTimeToIBDateTime(d: TDateTime): TISC_QUAD;
var
Days: Integer;
begin
Days:= Trunc(d);
Result.gds_quad_high:= Days + IBDateDelta;
Result.gds_quad_low:= Trunc((d - Days) * MSecsPerDay10);
end;

function IBDateTimeToDelphiDateTime(ibd: TISC_QUAD): TDateTime;
begin
Result:= ibd.gds_quad_high - IBDateDelta + ibd.gds_quad_low / MSecsPerDay10;
end;


P.S.
А разбираться-таки нужно. Лень - не помощник программеру))



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

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

Наверх




Память: 0.47 MB
Время: 0.028 c
1-88842
Ricks
2002-06-17 14:39
2002.06.27
Использование


1-88942
Tzota
2002-06-15 16:31
2002.06.27
Как создать что-то вроде своего диалогового окна?


6-88972
Hammer
2002-04-18 09:13
2002.06.27
Мастера, помогите


7-89055
michael_B
2002-04-02 18:18
2002.06.27
Как свернуть все запущенны проги(кроме моей)


1-88837
svv
2002-06-17 11:30
2002.06.27
Как в заголовок вывести стрелочку (в дос код 25)?