完整表格中的日期

Question

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

Answer 1

这基本上是一个oneliner：

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有自定义格式设置的重载版本。