如何打印日曆的日期

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，隨時可用。