Страница 1 из 1
UDF с простой функцией FormatDateTime
Добавлено: 26 дек 2006, 09:18
Solo
Хм... торможу что-то...
UDF имеет только одну функцию:
Код: Выделить всё
function ShortYearStr(Dat : TDateTime): PChar; cdecl; export;
begin
[b]Result := PChar(FormatDateTime('YY', Dat));[/b]
end;
Задекларируем ее в базе:
Код: Выделить всё
DECLARE EXTERNAL FUNCTION YEARTOSTR
DATE
RETURNS CHAR(2)
ENTRY_POINT 'ShortYearStr' MODULE_NAME 'UDFYear.dll'
И используем её:
Код: Выделить всё
for select contracts.locationcode
from contracts
where contracts.ncontcode = :IN_NCONT
into :v_locationcode
do
begin
out_locationcode = :v_locationcode||:v_delimeter||:in_ncont||:v_delimeter||
:in_ndoc||:v_delimeter||yeartostr(:in_doc_begin)||:v_pyaticod;
suspend;
end
Входящая величина - дата 01.01.2006, То-есть, выходящая строка должна быть "06", две последних цифры года. А получается почему-то вот что:
33-1111-000001-
99/98-71
То-есть 99 вместо 06
Что я не так делаю?
Добавлено: 26 дек 2006, 09:33
kdv
фигня какая то, а не функция. берет и возвращает какой-то pchar, возникающий из воздуха. Да еще не просто pchar, а char.
1. из функций возвращать надо cstring, а не char или pchar
2. кто-то должен аллокировать выходную строку. примеров на сайте достаточно, например safeudf
3. вместо udf в этом конкретном случае можно было воспользоваться функцией extract(year from ...
Добавлено: 26 дек 2006, 12:15
WildSery
Кроме того, что использовать нужно EXTRACT, автор ещё и с входным параметром облажался. Переданный сервером TIBDateTime пытается
обработать как дельфёвый TDateTime.
Добавлено: 26 дек 2006, 17:36
Solo
WildSery писал(а):Кроме того, что использовать нужно EXTRACT, автор ещё и с входным параметром облажался. Переданный сервером
TIBDateTime пытается обработать как дельфёвый TDateTime.
Ну вот, отбили охоту связываться с UDF
Сделал так:
v_year = extract(year from :in_doc_begin);
v_yeartwo = substring(:v_year from 3 for 4);
И все заработало...
Добавлено: 26 дек 2006, 17:49
kdv
Ну вот, отбили охоту связываться с UDF
а ты не пиши ерунду, а читай статьи на ibase.ru и используй в качестве
болванок для своих функций ПРИМЕРЫ udf, коих на ibase.ru достаточно.
Добавлено: 27 дек 2006, 09:19
Solo
kdv писал(а):Ну вот, отбили охоту связываться с UDF
а ты не пиши ерунду, а читай статьи на ibase.ru и используй в качестве
болванок для своих функций ПРИМЕРЫ udf, коих на ibase.ru достаточно.
Вчера даже книгу сходил купил мир InterBase к новому году. Вот начитаюсь, и буду вопросы не задавать, а отвечать еще вперед вас
Добавлено: 27 дек 2006, 09:48
kdv
да без проблем
