如何在 Delphi 中从系统中提取日期

在 Delphi 中，可以轻松地从系统中提取当前日期。以下是详细介绍：

1. 使用 Now 函数

Now 函数返回系统当前日期和时间。如果您想获取当前日期，则可以使用以下代码：

var
  currentDate: TDateTime;
begin
  currentDate := Now;
end;

currentDate 变量将包含当前日期。

2. 使用 Date 函数

Date 函数返回系统当前日期，不包括时间。如果您想获取当前日期，则可以使用以下代码：

var
  currentDate: TDateTime;
begin
  currentDate := Date;
end;

currentDate 变量将包含当前日期。

3. 自定义日期格式

您还可以根据需要自定义日期格式。以下是一些常见的自定义日期格式：

• yyyy-mm-dd：年-月-日
• dd/mm/yyyy：日/月/年
• mmm dd, yyyy：月 日, 年

以下是使用自定义日期格式提取当前日期的示例代码：

var
  currentDate: TDateTime;
  formattedDate: string;
begin
  currentDate := Now;
  formattedDate := FormatDateTime('yyyy-mm-dd', currentDate);
end;

formattedDate 变量将包含格式化后的当前日期。

以上就是在 Delphi 中从系统中提取日期的方法。您可以根据自己的需要选择其中一种方法。