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

7 个解决方案

#1

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

#2

具体怎么用啊?

#3

在这个日期控件的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;

#4

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

#5

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

#6

最笨的办法是这样的:
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;

#7

查数组的办法

#1