怎么样写行不？？日期格式化？？？

declare   
  d2   date;
  d1   date:=sysdate;
begin
    select   to_char(d1,'yyyy-mm')     into   d2   from       dual;
end;