InterBase и TTime

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

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

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

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

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.
А разбираться-таки нужно. Лень - не помощник программеру))

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