freepascal - 完整表格中的日期

Question

我真的不知道该程序使用什么代码：编写一个程序，接受以数字形式写入的日期，然后将它们作为完整的形式输出。例如：输入是 2 26 1986，输出应该是 1986 年 2 月 26 日。

Answer 1

这基本上是一个单行：

uses dateutils,sysutils;
var s :string;

begin
  s:='2 26 1986';
  // readln(s);
  writeln(formatdatetime('mmmm d, yyyy',scandatetime('m d yyyy',s)));
end.

虽然它假定使用英语语言环境，但您可以在较新的 FPC 中使用 getlocaleformatsettings 强制加载（在 Windows 下）。或者加载你自己的格式设置，formatdatetime 有一个用于自定义格式设置的重载版本。