Delphi 获取当前日期的小时数

您可以使用 Delphi 内置的 `HourOf` 函数来获取当前日期的小时数，示例如下：

var
  hour: Integer;
begin
  hour := HourOf(Now);
  // 打印当前小时数
  ShowMessage(IntToStr(hour));
end;

`Now` 函数返回当前日期和时间，`HourOf` 函数则返回其中的小时数。上述代码将获取当前小时数并弹出消息框进行显示。

相关问题

delphi获取当前时间戳

在 Delphi 中，可以使用 `Now` 函数获取当前时间，然后将其转换为时间戳。时间戳是自1970年1月1日起经过的秒数。

以下是获取当前时间戳的示例代码：

var
  timestamp: Int64;
begin
  timestamp := Round((Now - EncodeDate(1970, 1, 1)) * 86400);
  Writeln('当前时间戳：', timestamp);
end;

其中，`Round` 函数用于四舍五入到最接近的整数，`EncodeDate` 函数用于将日期编码为 Delphi 的 TDateTime 类型，`86400` 是一天中的秒数。

DELPHI 获取当前时间

你可以使用 Delphi 中的内置函数 Now 获取当前时间。Now 函数返回一个 TDateTime 类型的值，它表示当前日期和时间。例如，以下代码演示如何获取当前时间并将其显示在 MessageDlg 函数中：

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('当前时间：' + DateTimeToStr(Now), mtInformation, [mbOK], 0);
end;

在上面的代码中，使用了 Delphi 中另一个内置函数 DateTimeToStr 将 TDateTime 类型的值转换为字符串，以便能够在 MessageDlg 函数中显示。