如何在报表控件RM3中将DATETIME 字段的值如“2003-1-1 16：00：00”转换成“2003年1月1日下午4时”打印出来呀？

Question

如何在报表控件RM3中将DATETIME 字段的值如“2003-1-1 16：00：00”转换成“2003年1月1日下午4时”打印出来呀？

Answer 1

datetimepicker1.format='yyyy年M月d号tt h点';

Answer 2

DateTimePicker1.Format:='yyyy年MM月dd日tth时';

Answer 3

对不起,我是用的cxDBDateEdit 控件,找不到format属性,有办法吗?

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  hourtime : String;
begin
  hourtime:=Formatdatetime('h',now());
  if StrtoInt(hourtime)>12 then
    showmessage(formatdatetime('yyyy年M月d号',now())+'下午'+InttoStr(StrtoInt(hourtime)-12)+'时')
  else
    showmessage(formatdatetime('yyyy年M月d号',now())+'上午'+hourtime+'时') ;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  hourtime : String;
begin
  hourtime:=Formatdatetime('h',now());
  if StrtoInt(hourtime)>12 then
    showmessage(formatdatetime('yyyy年M月d号',now())+'下午'+InttoStr(StrtoInt(hourtime)-12)+'时')
  else
    showmessage(formatdatetime('yyyy年M月d号',now())+'上午'+hourtime+'时') ;
end;