Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Бази";
Поточний архів: 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";



сторінки: 1 вся гілка

Форум: "Бази";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.54 MB
Час: 0.021 c
4-22503
Yura
2001-11-05 20:11
2002.01.08
Введення рядка у вікно


14-22346
Іван Шихалев
2001-11-06 20:30
2002.01.08
РҐР ° Р№РєСѓ :))


3-21915
KAA
2001-12-04 10:28
2002.01.08
Обнулення змінної MSSQL2000


7-22427
KLM
2001-09-20 06:34
2002.01.08
Захист програми від копіювання


7-22449
Schummi
2001-09-15 07:45
2002.01.08
Вибране в Windows





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська