PLSQL 匿名块实现如下功能

请编写PLSQL 匿名块实现如下功能:
如果当前时间在23:00 - 7:30(不包含)，打印:美女正在休息，请勿扰!
如果当前时间在7:30 - 9:00(不包含)，打印:美女正在挤公交!
如果当前时间在9:00 - 12:00(包含)，打印:上午上班中
如果当前时间在12:00(不包含)- 13:00(不包含)，打印:吃饭，午休时间
如果当前时间在13:00- 18:00(不包含)，打印:下午上班中。
如果当前时间在18:00 - 20:00(不包含)，打印:下班途中。
如果当前时间在20:00 - 23:00(不包含)，打印:看电视，看电影

SELECT CASE WHEN TO_CHAR(SYSDATE,'HH24:MM') >= '23:00' AND TO_CHAR(SYSDATE,'HH24:MM') < '07:30' 
            THEN '美女正在休息，请勿扰!' 
            WHEN TO_CHAR(SYSDATE,'HH24:MM') >= '07:30' AND TO_CHAR(SYSDATE,'HH24:MM') < '09:00' 
            THEN '美女正在挤公交!' 
            WHEN TO_CHAR(SYSDATE,'HH24:MM') >= '09:00' AND TO_CHAR(SYSDATE,'HH24:MM') <= '12:00' 
            THEN '上午上班中' 
            WHEN TO_CHAR(SYSDATE,'HH24:MM') > '12:00' AND TO_CHAR(SYSDATE,'HH24:MM') < '13:00' 
            THEN '吃饭，午休时间' 
            WHEN TO_CHAR(SYSDATE,'HH24:MM') >= '13:00' AND TO_CHAR(SYSDATE,'HH24:MM') < '18:00' 
            THEN '下午上班中。' 
            WHEN TO_CHAR(SYSDATE,'HH24:MM') >= '18:00' AND TO_CHAR(SYSDATE,'HH24:MM') < '20:00' 
            THEN '下班途中。' 
            WHEN TO_CHAR(SYSDATE,'HH24:MM') >= '20:00' AND TO_CHAR(SYSDATE,'HH24:MM') < '23:00' 
            THEN '看电视，看电影' END
FROM DUAL