CREATE OR REPLACE FUNCTION GET_TIME_AM
  RETURN NUMBER IS
/*
 * Created by:
 * A. Gerasimov (ASBT) 17.10.1998
 * Purpose:
 * Возвращает время с полуночи в сотых долях секунды
 */
RetTime NUMBER; -- Возвращаемое значение
tmpTime Date;   -- Текущея дата/время
GTime NUMBER;   -- Время в сотых долях секунды с момента загрузки сервера
SecByDay NUMBER; -- Время с начала дня в секундах
BEGIN
   tmpTime:=SYSDATE;
   GTime:=dbms_utility.get_time;
   SecByDay:=To_Number(To_Char(tmpTime,'SSSSS'));
   RetTime:= SecByDay* 100  + (GTime - Trunc(GTime,- 2 ));
   Return RetTime;
END;