Упражнения для оператора управления PL / SQL: Показать, какой день является конкретной датой

Оператор управления PL / SQL: упражнение 15 с решением

Напишите программу на PL / SQL, чтобы показать, какой день является конкретной датой

Пример решения:

Код PL / SQL:

SET serveroutput ON
DECLARE
    t_dt  DATE := To_date('&input_a_date', 'DD-MON-YYYY');
    t_day VARCHAR2(1);
BEGIN
    t_day := To_char(t_dt, 'D');
    CASE t_day
      WHEN '1' THEN
        dbms_output.Put_line ('The date you entered is Sunday.');
      WHEN '2' THEN
        dbms_output.Put_line ('The date you entered is Monday.');
      WHEN '3' THEN
        dbms_output.Put_line ('The date you entered is Tuesday.');
      WHEN '4' THEN
        dbms_output.Put_line ('The date you entered is Wednesday.');
      WHEN '5' THEN
        dbms_output.Put_line ('The date you entered is Thursday.');
      WHEN '6' THEN
        dbms_output.Put_line ('The date you entered is Friday.');
      WHEN '7' THEN
        dbms_output.Put_line ('The date you entered is Saturday.');
    END CASE;
END; 
/

Пример вывода:

 SQL> /
SQL> /
Введите значение для input_a_date: 15 мая 2018
old 2: t_dt DATE: = To_date ('& input_a_date', 'DD-MON-YYYY');
новый 2: t_dt DATE: = To_date ('15 -may-2018 ',' DD-MON-YYYY ');
Дата, которую вы ввели - вторник.
Процедура PL / SQL успешно завершена.

Пример вывода:

 Введите значение для input_a_date: 14 сентября 2017 г.
old 2: t_dt DATE: = To_date ('& input_a_date', 'DD-MON-YYYY');
новый 2: t_dt DATE: = To_date ('14 -sep-2017 ',' DD-MON-YYYY ');
Дата, которую вы ввели - четверг.
Процедура PL / SQL успешно завершена.

Блок - схема:

Улучшите этот пример решения и опубликуйте свой код через Disqus

Предыдущий: Напишите программу на PL / SQL для преобразования температуры в градусах Фаренгейта в градусы Цельсия и наоборот.
Далее: Напишите программу на PL / SQL для печати значения переменной внутри и вне цикла, используя инструкцию LOOP EXIT.