如何在quickreport中快捷打印出当前的年份，月份，日期(20分)

我现在遇到一个问题在quickreport中用QRsysdate打印当前时间没办法提取其中的年月日，
用QRexpr写表达式也很不好提取，因为有的机子是短格式有的是长格式。
请问那位有办法?（用DecodeDate(Present,Year,month,day)这个不方便）

可以给QLABEL的CAPTION一个值：
var
mystr : string;
begin
mystr = datetostr(formatdatetime('0000-00-00',now));
Qlabel1.caption := copy(mystr,1,4) +'年' +copy(mystr,6,2)+'月'+ copy(mystr,9,2)+
'日';
end;
就可以了！