progress-4gl - 如何获取当前正在进行的时间（OpenEdge）

Question

我正在进行编码（又名 OpenEdge ABL）。

我有一个保存时间的变量，我想知道它是否大于当前时间。
但我在已阅读的文档中找不到任何内容，这些文档向我展示了如何检索当前的进行中时间。
我只能找到有关检索当前日期的信息（使用 Today 关键字）。
顺便说一句，如果使用 Today 关键字包括日期的时间部分，那很好，但我需要知道如何仅隔离时间部分。

谢谢。（请注意，我所指的时间是表示自午夜以来秒数的整数类型）

Answer 1

在版本 10 之前：

define variable t as integer no-undo.  /* time, in seconds, since midnite */

t = time.

display t.

版本 10 之后（如果您想要组合日期和时间）：

define variable dt as datetime no-undo.

dt = now.

display dt.

将现有时间变量与当前时间进行比较：

define variable t as integer no-undo initial 12345.  /* 3:25:45 am */

display t > time.

从 DateTime 变量中提取时间（以秒为单位）（并按照 Jensd 的建议很好地显示它）：

define variable t  as integer  no-undo.
define variable dt as datetime no-undo.

dt = now.

t = integer( mtime( dt ) / 1000 ).

display t string( t, "hh:mm:ss am" ).