create or alter procedure GET_LAST_CONNECT
returns (
D_STARTED date)
as
declare variable V_D date;
declare variable L_D date;
begin

if

select left(current_user, 2)
from RDB$DATABASE = 'SM'

then
/* ищет в списке коннектов последний по текущему юзеру
возвращает время его старта
найденный коннект должен быть единственным или
отличаться по времени от предпоследнего более чем на 2 секунды
иначе вернёт '01.01.1900' как признак что коннект неопределён */

/* по умолчанию считаем что не нашли */
L_D = null;

create or alter procedure GET_LAST_CONNECT
returns (
D_STARTED date)
as
declare variable V_D date;
declare variable L_D date;
begin

if
begin
select left(current_user, 2)
from RDB$DATABASE = 'SM'
end
then

create or alter procedure GET_LAST_CONNECT
returns (
D_STARTED date)
as
declare variable V_D date;
declare variable L_D date;
begin

if
begin
select left(current_user, 2)
from RDB$DATABASE = 'SM'
end
then
/* ищет в списке коннектов последний по текущему юзеру
возвращает время его старта
найденный коннект должен быть единственным или
отличаться по времени от предпоследнего более чем на 2 секунды
иначе вернёт '01.01.1900' как признак что коннект неопределён */

/* по умолчанию считаем что не нашли */
begin
L_D = null;
D_STARTED = STRTODATEFMT('dd.mm.yyyy', '01.01.1900');/* преобразование строки в дату с помощью функции StrToDateFmt из Delphi (время не отрабатывает только дату) */
for select MON$TIMESTAMP
from MON$ATTACHMENTS
where MON$USER = user
order by MON$TIMESTAMP desc
into :V_D
do
begin
if (L_D is null) then
L_D = V_D;/* последний конект */
else
begin
/* коннект не единственный (сейчас v_d - предпоследний коннект) */
if (L_D - V_D > 0.00003) then
D_STARTED = L_D;/* если между последним и предпоследним разница по времени более 2 секунд */
suspend;
exit;
/* разница в 1-ну секунду = 0,000011574
разница в 2-е секунды = 0,000023148
... */
end
end

if (L_D is not null) then
D_STARTED = L_D;/* если коннект единственный */
suspend;
end
end