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

Вниз

Обработка даты из 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";



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

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

Наверх




Память: 0.46 MB
Время: 0.011 c
1-22052
avr555
2001-12-17 19:54
2002.01.08
Перетаскиваемый компонент


1-22144
shornik
2001-12-20 11:36
2002.01.08
Мастера !!!! Пожалуйста помогите с проблемой !


4-22490
SergeyDonetsk
2001-11-06 09:22
2002.01.08
как на АПИ можно зная Handle Canvas а задать


4-22506
gluka
2001-11-06 00:16
2002.01.08
Как запихнуть *.dll-ку в ехе файл?


4-22513
Oxy2
2001-10-23 23:23
2002.01.08
Как создавать формы с разными контролами на чистом API?