Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Вниз![]()
Обработка даты из IB в Delphi и обратно
Сергей Н. (2001-12-04 06:23) [0]Нужно сделать UDF-функцию по работе с датами.
Как в Delphi принять и работать с датой IB?
Как обработанную дату из Delphi вернуть в поле таблицы IB?
Vadim (2001-12-04 10:44) [1]
library Mylib;
uses SysUtils;
type
ISC_QUAD = Record
isc_quad_high: Integer;
isc_quad_low: Cardinal;
End;
PISC_QUAD = ^ISC_QUAD;
threadvar
tempquad: ISC_QUAD;
Function MonthAdd(Var NumberMonth: Integer; IBDate: PISC_QUAD): PISC_QUAD; cdecl; export;
Begin
tempquad.isc_quad_high := Round(IncMonth(IBDate^.isc_quad_high,NumberMonth));
Result := @tempquad;
End;
Function OnlyDate(IBDate: PISC_QUAD): PISC_QUAD; cdecl; export;
Begin
tempquad.isc_quad_high := Round(IBDate^.isc_quad_high);
Result := @tempquad;
End;
Exports MonthAdd Name "MonthAdd";
Exports OnlyDate Name "OnlyDate";
begin
end.
DECLARE EXTERNAL FUNCTION MONTH_ADD
INTEGER, TIMESTAMP
RETURNS TIMESTAMP
ENTRY_POINT "MonthAdd" MODULE_NAME "Mylib.dll";
Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
EMAIL={{}};LOGIN={{Сергей Н.}};TITLE={{Обработка даты из IB в Delphi и обратно}};ATTRIBUTES={{}};ID_MSG={{2348}};ID_GROUP={{3}};ID_NNTP={{84}};ID_DM={{21912}};REPLYNR={{0}};ID_DM_AUTHOR={{0}};ARCHIVE={{2002.01.08}};REPLYDATE={{2001-12-04 06:23}};CNT={{1}};
Память: 0.74 MB
Время: 0.026 c