请教：FastReport中如何给变量赋日期格式的值？(50分)

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-02

• #1

我的处理方法是：
frReport1.Dictionary.Variables.Value[2]:=FormatDateTime("YYYY'年'mm'月'dd'日'",DateTimePicker1.Date);
程序编译通过，但是在预览或打印报表时报错：‘2003年02月21日’is not a valid floating point value';
请问该如何处理？

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-02

• #2

frReport1.Dictionary.Variables.Value[2]:=FormatDateTime('YYYY年mm月dd日',DateTimePicker1.Date);
似乎与FR无关，是你用FORMATDATETIME函数不正确吧

 

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-02

• #3

编译通过，格式函数没有问题，如果换做：
RMReport1.FindObject("Memo12").Memo.Text := FormatDateTime('YYYY年mm月dd日',DateTimePicker1.Date);
则没有任何问题。所以，问题应该处在FR上，不知各位有没有遇到过此类问题，并请提供好的处理建议。

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-02

• #4

FormatDateTime("YYYY'年'mm'月'dd'日'",DateTimePicker1.Date);
我也这样怎么就编译不过呢？？
另外，我对FR中的变量赋值时是如下操作的
procedure TPrintMai_frm.frReport1GetValue(const ParName: string;
var ParValue: Variant);
begin
if ParName = 'printdate' then
ParValue := FormatDateTime('YYYY年mm月dd日',DateTimePicker1.Date);
end;

 

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-02

• #5

哦，呵呵，对不起。我前面的语法都是在CBuilder里写的，贴过来后只把‘->’改成了‘.’,呵呵，所以让你纳闷了。谢谢啊，我去试试。

 

2

2you2me

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-02

• #6

^_^，谢谢app2001，你的建议很好，我接受了。谢谢！！