评估Delphi中的当前小时

Question

我正在寻找与以下Ruby代码等效的Delphi

if Time.now.hour > 12  then
  # Statement; 
else
  # Alternative Statement;
end

由于 斯蒂芬

Answer 1

使用

if HourOf(Now) > 12 then
  // Statement
else
  // Alternative Statement;

将DateUtils添加到uses条款后

。

Answer 2

例如，

if Trunc (Time * 24) > 12 then ...