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

Question

我有一个 Delphi 表单中的 datetimepicker 组件，我想获取时间。当我在 Debug模式下查看日期时，我看到 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);