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

2024-11-24 17:11:20
推荐回答(4个)
回答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;


代码运行截图:


回答2:

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

回答3:

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

回答4:

ShowMessage(DatetimeToStr(Now));