在这个日期控件的OnPrint事件中
xxx.OnPrint(Sender: xxx; Value: string);
var
t: TDateTime;
begin
t := StrToDate(Value);
Value := FormatDateTime('MMM.DD.YYYY', t);
end;
最笨的办法是这样的:
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;
在这个日期控件的OnPrint事件中
xxx.OnPrint(Sender: xxx; Value: string);
var
t: TDateTime;
begin
t := StrToDate(Value);
Value := FormatDateTime('xxx.MM.YYYY', t);
//这个xxx是什么我忘记了,YYYY:年,MM:日,那个Sep用什么我忘记了,看一下帮助,呵呵