在用QUICKREPORT打印日期时，如何将日期03-9-16转换为Sep.16,2003再打印出来？

Question

在用QUICKREPORT打印日期时，如何将日期03-9-16转换为Sep.16,2003再打印出来？

Answer 1

有个函数datetimetosystemtime();我不太记得他的返回值是什么了；楼主可以试试；

Answer 2

在这个日期控件的OnPrint事件中
xxx.OnPrint(Sender: xxx; Value: string);
var
  t: TDateTime;
begin
  t := StrToDate(Value);
  Value := FormatDateTime('xxx.MM.YYYY', t);
//这个xxx是什么我忘记了，YYYY：年，MM：日，那个Sep用什么我忘记了，看一下帮助，呵呵end;

Answer 3

在这个日期控件的OnPrint事件中
xxx.OnPrint(Sender: xxx; Value: string);
var
  t: TDateTime;
begin
  t := StrToDate(Value);
  Value := FormatDateTime('MMM.DD.YYYY', t);
end;

Answer 4

它打印为:九月.16.2003,我要的是:Sep.16.2003,麻烦帮我想想办法!谢谢!

Answer 5

最笨的办法是这样的:
xxx.OnPrint(Sender: xxx; Value: string);
const
  CMonths: array[1..12] of string = ('Jan', 'Feb',...);
var
  t: TDateTime;
  Y, M, D: word;
begin
  t := StrToDate(Value);
  DecodeDate(t, Y, M, D);  Value := Format('%s.%d.%d', [CMonths[M], D, Y]);
end;