DateTimePicker 如何获取 小时 分钟 秒

Question

刚学不久，希望用edit得到 DateTimePicker 上的 小时 分钟 秒，希望大家帮帮我

Answer 1

老兄，学习要给分的procedure TForm1.Button7Click(Sender: TObject);
var
  hour,min,sec,msec:Word;
begin
  DecodeTime(self.DateTimePicker1.Time,hour,min,sec,msec);
  self.Edit1.Text:=IntToStr(hour);
end;

Answer 2

需要引用单元DateUtils就是在单元开头的uses中增加DateUtils

Answer 3

小时 分钟 秒 DateTimePicker1好象是不变的吧？
改变的只是日期 年月日 Edit1.Text:=formatdatetime('YYYY-MM-DD HH:mm:ss',DateTimePicker1.Time);

Answer 4

第一个DateTimePicker取的是日期，第二个取的是时间trunc(self.DateTimePicker1.Date)+frac(self.DateTimePicker3.Time);

Answer 5

我试了下，datetimepicker的小时，分钟，秒是不变的，我觉得楼主的问题可以这样解决
procedure TForm1.FormCreate(Sender: TObject);
begin
   edt1.Text:='';
   edt1.Text:=timeToStr(dtp1.time);
end;