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

jingchou 2003-10-18 11:06:55
在用QUICKREPORT打印日期时,如何将日期03-9-16转换为Sep.16,2003再打印出来?
...全文
34 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
jingchou 2003-10-20
  • 打赏
  • 举报
回复
它打印为:九月.16.2003,我要的是:Sep.16.2003,麻烦帮我想想办法!谢谢!
ruthfox 2003-10-20
  • 打赏
  • 举报
回复
在这个日期控件的OnPrint事件中
xxx.OnPrint(Sender: xxx; Value: string);
var
t: TDateTime;
begin
t := StrToDate(Value);
Value := FormatDateTime('MMM.DD.YYYY', t);
end;
pchaos 2003-10-20
  • 打赏
  • 举报
回复
查数组的办法
ruthfox 2003-10-20
  • 打赏
  • 举报
回复
最笨的办法是这样的:
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;
ruthfox 2003-10-19
  • 打赏
  • 举报
回复
在这个日期控件的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;
47522341 2003-10-18
  • 打赏
  • 举报
回复
有个函数datetimetosystemtime();我不太记得他的返回值是什么了;楼主可以试试;
jingchou 2003-10-18
  • 打赏
  • 举报
回复
具体怎么用啊?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧