Decode the timestamp embedded in a ULID into a TIMESTAMPTZ

decode_timestamp_from_ulid.sql

SELECT
    'epoch'::TIMESTAMPTZ
    +
    (
        'x'
        ||
        lpad(
            substr(
                replace(
                    the_uuid::STRING,
                    '-',
                    ''
                ),
                1,
                12
            ),
            16,
            '0'
        )
    )::BIT(64)::INT8
    *
    '1 millisecond'::INTERVAL
    +
    (
        'x'
        ||
        lpad(
            substr(
                the_uuid::STRING,
                15,
                3
            ),
            4,
            '0'
        )
    )::BIT(16)::INT2
    *
    '1 microsecond'::INTERVAL
;