如何使用delphi xe3更改系统短日期时间格式

Question

我会尽量让问题尽可能简单。

我如何将系统日期转换为我想要的格式，并且仍然将其保留为日期而不是字符串。 或者我如何获取系统的日期格式，以相应地调整我的日期。

当我打电话时

FormatShortdateTime('d/M/yyyy',Date);

我得到正确的日期作为字符串，但无法将其转换回 Tdate 并使用它，然后它与系统日期设置冲突。

如果我能得到系统短日期格式，问题就解决了。

Answer 1

更新

下面的答案是指您提出的原始问题。您现在已经多次编辑问题以提出不同的问题。你真的不应该这样做，这表明你应该在提问之前花更多的时间来理解问题。

即便如此，答案的最后一部分，可能仍然包含您需要的建议。即停止使用依赖于全局FormatSettings 变量的转换函数，始终使用以格式设置作为参数传递的转换函数。

---

您数据库中的日期值未以您期望的格式存储。这个程序：

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

var
  fs: TFormatSettings;
begin
  fs := TFormatSettings.Create;
  fs.ShortDateFormat := 'd/M/yyyy';
  Writeln(DateToStr(StrToDate('18/2/2014', fs)));
end.

在我的机器上产生以下输出：

18/02/2014

我猜在您的机器上它会产生不同的输出，因为您的短日期格式与我的不同。但关键是对StrToDate 的调用成功了。

很明显，存储在您的数据库中的值不是您声称的形式。因为您声称上述代码会导致调用StrToDate时出现日期转换错误。

---

让我们退后一步，看看你问题的开头部分：

我想知道如何在不让系统日期影响软件的情况下转换日期。

上面答案中的代码为您提供了如何执行此操作的示例。现代版本的 Delphi 重载了日期和时间转换功能。有接受TFormatSettings 参数的重载，也有没有这样参数的重载。 TFormatSettings 参数用于控制用于转换的格式。不接收此类参数的重载使用SysUtils 单元中声明的全局FormatSettings 实例。

为了避免系统设置影响您的转换，您应该只使用接受格式设置参数的转换函数。

另一方面，如果您希望系统设置影响您的转换，请随意调用使用全局格式设置变量的重载。

我上面的代码说明了两者。从字符串到日期的转换需要固定格式，不随本地系统设置而变化。从日期到字符串的转换旨在使用流行的本地系统设置显示日期。

Answer 2

我建议创建自己的 TFormatSettings 变量

旧的 delphi 版本

var
  fs: TFormatSettings;
begin
  fs := TFormatSettings.Create;
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, fs);
end.

这将创建您自己的 formatSettings（填充系统格式），因此您不会更改默认设置。

现在重要的是 shortDateFormat 中的 '/' 将被 dateSeparator 替换，所以如果你这样做

fs.ShortDateFormat:='M/d/yyyy';
fs.dateSeparator:='?';

你的输入应该是这样的

strtodate('12?30?1899', fs);

或者如果你以其他方式结束你的字符串：'12?30?1899';

我认为您的问题源于您没有询问使用了什么 dateSeparator。如果程序期望的是“30-12-1899”，但他从您那里得到“30/12/1899”，那将导致问题。