如何打印日历的日期

Question

我正在使用Gnat（ada95的旧编译器），我有问题打印日期。
我declaired：（带Ada.calendar）

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

现在我试着打印 -

PUT_LINE（ “年：” &年（CDATE）'图）;

但我没有能够做到这样......

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 GPL 2009，随时可用。