24: l_dow NUMBER;
25:
26: begin
27:
28: select to_char(the_date, 'MM' ) - 3 into m from dual;
29: select to_char(the_date, 'YYYY' ) into y from dual;
30: select to_char(the_date, 'DD' ) into d from dual;
31:
32: if ( m < 0 ) then
25:
26: begin
27:
28: select to_char(the_date, 'MM' ) - 3 into m from dual;
29: select to_char(the_date, 'YYYY' ) into y from dual;
30: select to_char(the_date, 'DD' ) into d from dual;
31:
32: if ( m < 0 ) then
33: m := m + 12;
26: begin
27:
28: select to_char(the_date, 'MM' ) - 3 into m from dual;
29: select to_char(the_date, 'YYYY' ) into y from dual;
30: select to_char(the_date, 'DD' ) into d from dual;
31:
32: if ( m < 0 ) then
33: m := m + 12;
34: y := y - 1;