如何打印日历的日期

Question

我使用蚋（Ada95的旧编译器），我有问题打印日期。结果 我declaired：（带Ada.calendar）

  

CDATE：Calendar.Time;结果   CDATE：= Calendar.Time_Of（年份=> 2010，月=> 1，天=> 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 时，是容易获得的。