iBase.ru Forum

Код: Выделить всё

function fDateOf (Value: double): double;
begin
 Result := DateOf(Value);
end;
function fTimeOf(Value: double): double;
begin
 Result := TimeOf(Value);
end;

Код: Выделить всё

SET SQL dialect 3;
--/*
DROP external FUNCTION Date_Of;
DROP external FUNCTION Time_Of;
--*/
DECLARE external FUNCTION Date_Of
DOUBLE precision by DESCRIPTOR
returns DOUBLE precision by DESCRIPTOR
entry_point 'fDateOf' module_name 'date_time_udf';

DECLARE external FUNCTION Time_Of
DOUBLE precision by DESCRIPTOR
returns DOUBLE precision by DESCRIPTOR
entry_point 'fTimeOf' module_name 'date_time_udf';

Код: Выделить всё

select  date_of((select current_date from rdb$database)) as "Дата"
       ,time_of((select current_time from rdb$database)) as "Время"
from rdb$database
     rows 1

Код: Выделить всё

select  date_of(0) as "Дата"
       ,time_of(0) as "Время"
from rdb$database
     rows 1

Код: Выделить всё

type
   TIBDate = integer;
   TIBTime = Cardinal;
   TIBTimeStamp= packed record
                    Date: TIBDate;
                    Time: TIBTime;
                 end;