请问怎么取出datetimepicker的日期呀！

Question

例如：我在datetimepicker选好了日期为2000年9月26日，
我点击button，希望得到label的captian属性是‘今天的日期为2000年9月26日’
label.captian:='今天的日期为'+？？？+'';
请问该怎么转换？

Answer 1

label.caption:='今天的日期为'+datetimeformat('yyyy年MM月dd日',datetimepicker1.date);

Answer 2

begin
  if fieldbyname('时间').AsString='' THEN
    datetimepicker1.Date :=date()
  else
    datetimepicker1.Date:=fieldbyname('时间').AsDateTime ;
end;你参考一下吧！

Answer 3

label.caption:='今天的日期为'+formatdatetime('yyyy年MM月dd日',datetimepicker1.date);

Answer 4

label.caption:='今天的日期为'+datetimeformat('yyyy"年"MM"月"dd"日"',datetimepicker1.date);

Answer 5

datetimeformat('yyyy年MM月dd日',datetimepicker1.date)

Answer 6

多谢各位的回答，但好象各位的回答的引号好象少了呀，我在delphi里试了一下
老说我的datetimeformat没定义过，我自己加了几个引号试了一下都不对。

Answer 7

我是这样加的
label1.caption:='今天的日期为'+datetimeformat('yyyy年MM月dd日',datetimepicker1.date)+'';
有错误。

Answer 8

datetimepicker1.date=now;
label.caption:='今天的日期为:'+datetimepicker1.date;

Answer 9

我试了
label1.caption:='今天的日期为'+datetimeformat('yyyy年MM月dd日',datetimepicker1.date);
也是同样的错误呀！

Answer 10

procedure TForm1.FormCreate(Sender: TObject);
var
 str:string;
begin
 str:=datetostr(edt.date);
 str:=stringreplace(str,'-','年',[rfignorecase]);
 str:=stringreplace(str,'-','月',[rfignorecase]);
 str:=stringreplace(str,'-','日',[rfignorecase]);
 label1.caption:='Today is '+str+'';end;