Question

哪位知道DELPHI里怎么获取“时-分-秒”时间？

哪位知道DELPHI里怎么获取“时-分-秒”时间？

我需要知道当前的年月日时分秒。

Answer 1

在 DELPHI 里获取“当前的年月日时分秒”，是一个比较常见的应用，对于此问题的解决，可以分为两步来解决：

1、获取的当前的日期时间

在 delphi 语言里，日期时间使用 TDateTime 数据类型进行定义。获取当前的日期(包括时间)可以使用 Now 函数：

2、对获取的当前日期时间数据，按照需要进行格式化的输出

如果需要对 TDateTime 类型数据，按照自定义的格式显示输出，可以使用 FormatDateTime 功能函数：

其中，Format 参数可以使用多种预定义标识进行设置，以下列举常用的一些：

当了解完上述知识，就可以进行尝试进行代码的编写了，以下是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  CurDateTime :TDateTime;
begin
  CurDateTime := Now;  //获取当前日期时间
  s := FormatDateTime('现在是 yyyy 年 M 月 d 日 hh 时 nn 分 ss 秒',CurDateTime);
  MessageBox(Handle, PChar(s), '信息提示', MB_OK + MB_ICONINFORMATION);
end;

代码运行截图：

Answer 2

ShowMessage(FormatDateTime('YYYY年MM月DD日HH时NN分SS秒', Now));

Answer 3

yearof(now)
monthof(now)
dayof(now)
hourof(now)
MinuteOf(now)
SecondOf(now)

Answer 4

ShowMessage(DatetimeToStr(Now));