如何从Delphi中的datetimepicker组件中提取时间？

Question

我有一个Delphi表单的datetimepicker组件，我想得到时间。当我在调试模式下查看日期时，我看到42544.621701，我希望得到0.621701而没有日期值。

Answer 1

您可以使用Frac()功能：

var
  Time: TTime;
...
  Time := Frac(DateTimePicker1.DateTime);

或者，您可以使用System.DateUtils.TimeOf()函数，它只是Frac()周围的内联包装器，具有更具描述性的名称：

uses
  ..., DateUtils;

var
  Time: TTime;
...
  Time := TimeOf(DateTimePicker1.DateTime);

Answer 2

问题实际上并不是关于日期时间选择器。控件返回日期时间值。您正在寻找一种方法来提取时间部分。使用System.DateUtils单元中的TimeOf函数执行此操作。

 MyTime := TimeOf(MyDateTime);

Answer 3

EditHoo.Text：= timetostr（DateTimePicker2.Time）;