DECLARE
testvalue VARCHAR2(20);
d1 integer := 0;
d2 VARCHAR2(20);
d3 date;
BEGIN
testvalue := to_char(sysdate,‘yyyy’);
– dbms_output.put_line( testvalue||‘执行存储过程结束时间为:’|| testvalue);–打印 拼接等。
dbms_output.put_line( ‘打印testvalue:’|| testvalue);
d1:=TO_NUMBER( testvalue);
d1:=d1-25;
dbms_output.put_line( ‘打印d1:’|| d1);
d2:=d1||to_char(sysdate,’-mm-dd’);
dbms_output.put_line( ‘打印d2:’|| d2);
– d3:= to_date (d2);
END;