如何打印日历的日期

Question

我正在使用Gnat（ada95的旧编译器），我在打印日期时遇到问题 我声明:(使用Ada.calendar）

  

Cdate：Calendar.Time;
  Cdate：= Calendar.Time_Of（Year =＆gt; 2010，Month =＆gt; 1，Day =＆gt; 10）;

现在我试图打印它 -

  

Put_Line（“年份：”和年份（Cdate）'Img）;

但我没有设法这样做......

Answer 1

您只提供了程序片段，因此很难说出您实际编写的内容并且正在尝试运行。而且你没有说明“如何”它不起作用。它没编译吗？它编译但运行不正确吗？

如果片段按照您的代码原样剪切并粘贴到此处，则可能会出现语法错误。

这是一个完全正常工作的程序，可以完成你想要的东西：

with Calendar;
with Text_IO; use Text_IO;

procedure Cdate_Test is

   Cdate : Calendar.Time;

begin
   Cdate := Calendar.Time_Of(Year => 2010, Month => 1, Day => 10);
   Put_Line("Year: " & Calendar.Year(Cdate)'Img);
end Cdate_Test;

这是使用Gnat编译和运行的，虽然您可能正在使用它的旧版本，但它本身并不是“旧编译器”，它的最新/最大免费版本GNAT GPL 2009很容易可用。