Главная страница
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.031 c
1-88937
abitur
2002-06-08 16:05
2002.06.27
Выделение памяти


1-88824
Валет
2002-06-17 08:42
2002.06.27
Несколько вопросов по завершению работы ПК


1-88807
Payland
2002-06-16 20:56
2002.06.27
Переадресация


1-88867
Мефодий
2002-06-13 20:12
2002.06.27
Мастера ! Где же вы ? Помогите же !!!!!


14-89003
keymaster
2002-05-24 22:50
2002.06.27
Win XP - набор глюков!!!