Oracle PL/SQL Tutorial/PL SQL Programming/TO CHAR — различия между версиями

Материал из SQL эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 10:08, 26 мая 2010

TO_CHAR(d3,"Day, Month dd, yyyy")

SQL>
SQL> SET SERVEROUTPUT ON
SQL> DECLARE
  2    d1    DATE;
  3    d2    DATE;
  4    d3    DATE;
  5    d4    DATE;
  6    n1    NUMBER;
  7    n2    NUMBER;
  8    n3    NUMBER;
  9   BEGIN
 10    d3 := TO_DATE("Jan 1, 2000","mon dd, yyyy");
 11
 12    DBMS_OUTPUT.PUT_LINE("d3 = " || TO_CHAR(d3,"Day, Month dd, yyyy"));
 13
 14  END;
 15  /
d3 = Saturday , January   01, 2000
PL/SQL procedure successfully completed.


TO_CHAR(n1,"999D99")

SQL> SET SERVEROUTPUT ON
SQL> DECLARE
  2    d1    DATE;
  3    d2    DATE;
  4    d3    DATE;
  5    d4    DATE;
  6    n1    NUMBER;
  7    n2    NUMBER;
  8    n3    NUMBER;
  9   BEGIN
 10    n1 := TO_NUMBER ("123.99","999D99");
 11
 12    DBMS_OUTPUT.PUT_LINE("n1 = " || TO_CHAR(n1,"999D99"));
 13
 14  END;
 15  /
n1 =  123.99
PL/SQL procedure successfully completed.


Use TO_CHAR function in DBMS_OUTPUT.PUT_LINE

SQL>
SQL>
SQL> SET SERVEROUTPUT ON
SQL> DECLARE
  2    d1    DATE;
  3    d2    DATE;
  4    d3    DATE;
  5    d4    DATE;
  6    n1    NUMBER;
  7    n2    NUMBER;
  8    n3    NUMBER;
  9   BEGIN
 10    d1 := TO_DATE("1/1/02","mm/dd/yy");
 11
 12    DBMS_OUTPUT.PUT_LINE("d1 = " || TO_CHAR(d1,"dd-Mon-yyyy"));
 13
 14  END;
 15  /
d1 = 01-Jan-2002
PL/SQL procedure successfully completed.
SQL>


Use TO_CHAR function in PL/SQL

SQL>
SQL> SET SERVEROUTPUT ON
SQL> DECLARE
  2    test_date     DATE;
  3    day_of_week   VARCHAR2(3);
  4    years_ahead   INTEGER;
  5  BEGIN
  6    test_date := TO_DATE("1-Jan-1997","dd-mon-yyyy");
  7
  8    FOR years_ahead IN 1..10 LOOP
  9      day_of_week := TO_CHAR(test_date,"Dy");
 10
 11      IF day_of_week IN ("Sat","Sun") THEN
 12        DBMS_OUTPUT.PUT_LINE(TO_CHAR(test_date,"dd-Mon-yyyy")|| "     A long weekend!");
 13      ELSE
 14        DBMS_OUTPUT.PUT_LINE(TO_CHAR(test_date,"dd-Mon-yyyy")|| " Not a long weekend.");
 15      END IF;
 16      test_date := ADD_MONTHS(test_date,12);
 17    END LOOP;
 18  END;
 19  /
01-Jan-1997 Not a long weekend.
01-Jan-1998 Not a long weekend.
01-Jan-1999 Not a long weekend.
01-Jan-2000     A long weekend!
01-Jan-2001 Not a long weekend.
01-Jan-2002 Not a long weekend.
01-Jan-2003 Not a long weekend.
01-Jan-2004 Not a long weekend.
01-Jan-2005     A long weekend!
01-Jan-2006     A long weekend!
PL/SQL procedure successfully completed.
SQL>
SQL>


Year 2000 problems? Note the effect of using rr instead of yy

SQL>
SQL> SET SERVEROUTPUT ON
SQL> DECLARE
  2    d1    DATE;
  3    d2    DATE;
  4    d3    DATE;
  5    d4    DATE;
  6    n1    NUMBER;
  7    n2    NUMBER;
  8    n3    NUMBER;
  9   BEGIN
 10    d4 := TO_DATE("1/1/02","mm/dd/rr");
 11
 12    DBMS_OUTPUT.PUT_LINE("d4 = " || TO_CHAR(d4,"Dy, Mon dd, yyyy"));
 13
 14  END;
 15  /
d4 = Tue, Jan 01, 2002
PL/SQL procedure successfully completed.
SQL>