منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "القواعد";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

التعامل مع التواريخ من IB إلى دلفي والعودة البحث عن فروع مماثلة


Сергей Н.   (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.55 ميغابايت
الوقت: 0.028 ج
1-22104
DerZky
2001-12-18 19:54
2002.01.08
كيفية مقارنة التواريخ.


1-22207
Delphimun
2001-12-15 10:00
2002.01.08
كيفية تجميع ملفات متعددة في إكس واحد


1-22056
Delphimun
2001-12-15 13:11
2002.01.08
كيفية إنشاء مورد باستخدام brcc32.exe؟


3-21989
بوريس
2001-12-06 15:50
2002.01.08
عند كتابة استعلام في TQuery ، يتم تحميل جميع السجلات.


7-22421
شين
2001-08-28 15:05
2002.01.08
تحميل البيانات عبر منفذ com





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский