分数大赠送，简单问题？

Question

请问怎么能从now得到的时间里分解出日期和时间，并分别显示在两个编辑框中?

Answer 1

DecodeDate(now, Year, Month, Day);
    decodetime(datetimepicker1.Time,Hour, Min, Sec, MSec);
     //showmessage(inttostr(month)+inttostr(day));
     edit1.text:=inttostr(day);
     edit2.text :=inttostr(hour);
     edit3.text :=inttostr(min);

Answer 2

Edit1.Text := DataTimeToStr(DataOf(Now));
Edit2.Text := DataTimeToStr(TimeOf(Now));

Answer 3

Var Year,Month,Day:Word;DecodeDate(now,Year,Month,Day);Edit1.Text:=Year;
Edit2.Text:=Month;
Edit3.Text:=Day;

Answer 4

上面錯了!
uses DateUtils;Edit1.Text := DateTimeToStr(DateOf(Now));
Edit2.Text := TimeToStr(TimeOf(Now));

Answer 5

Edit1.Text:=Formatdatetime('yyyy-mm-dd',Now);  Edit2.Text:=Formatdatetime('hh:mm AM/PM',Now);

Answer 6

Edit1.Text := DateToStr(DateOf(Now)); 亦可

Answer 7

DecodeDate(now, Year, Month, Day);
     edit1.text:=inttostr(day);
     edit2.text :=inttostr(hour);
     edit3.text :=inttostr(min);

Answer 8

var year,month,day:word;now2:Tdatatime;
now2:=date();
decodedate(now2,year,month,day);
lable1.Text :=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日'; 

Answer 9

Edit1.Text:=Formatdatetime('yyyy-mm-dd',Now); Edit2.Text:=Formatdatetime('hh:mm AM/PM',Now);