Форум: "Базы";
Поиск по всему сайту: 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];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-22209           Kost                  2001-12-14 14:10  2002.01.08  
Пользовался кто нибудь функцией PaintTo для прорисовки WinControl ов на канвас битмэпа? Помогите! У меня ничего не получается.


4-22495           sob                   2001-11-05 09:57  2002.01.08  
основы WinAPI


1-22161           Егор Булычев          2001-12-19 22:13  2002.01.08  
Memo хелп!


6-22289           Kirill                2001-10-03 18:33  2002.01.08  
Контекстное меню у IE


1-22098           Alexander             2001-12-19 14:58  2002.01.08  
Кто знает как вытащить виндовый редактор IP адреса или компонент какой?