评估Delphi中的当前小时

Ste*_*fan 2 delphi datetime

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

if Time.now.hour > 12  then
  # Statement; 
else
  # Alternative Statement;
end
Run Code Online (Sandbox Code Playgroud)

谢谢Stefan

And*_*and 13

使用

if HourOf(Now) > 12 then
  // Statement
else
  // Alternative Statement;
Run Code Online (Sandbox Code Playgroud)

在你加入DateUtils你的uses条款之后.

  • DateUtils不是外部库; 它是RTL的一部分.如果你想在不使用DateUtils的情况下这样做,你就可以获得源代码; 看看HourOf如何实现它. (3认同)
  • @Stefan,任何能够阅读基本英语并且知道Delphi的函数调用语法的人都应该能够弄清楚`HourOf(Now)`的意思.这样的人可能会发现比Serg的代码(需要知道`TTime`值的存储格式)更容易理解,并且比`DecodeTime`(需要三个额外的虚拟变量和一个单独的语句)更容易使用. (3认同)