create or replace
FUNCTION DATE_TO_UNIX_TS (theDate IN DATE) RETURN NUMBER IS l_unix_ts NUMBER;
BEGIN l_unix_ts := (theDate – DATE ‚1970-01-01‘)*60*60*24;
RETURN l_unix_ts;
END;