wie Datum der Kalender drucken

Question

Ich verwende Gnat (alte Compiler von Ada95) und ich habe Probleme, das Datum zu drucken.
Ich Gebenes: (mit Ada.calendar)

  

CDate: Calendar.Time;
  Cdate: = Calendar.Time_Of (Jahr => 2010, Monat => 1, Tag => 10);

Jetzt habe ich versucht, es zu drucken -

  

Put_Line ( "Jahr:" & Jahr (CDate) 'Img);

Aber ich habe nicht geschafft, so zu tun ...

Answer 1

Sie nur Programmfragmente zur Verfügung gestellt, so ist es schwer zu sagen, was Sie geschrieben haben tatsächlich und versuchen zu laufen. Und Sie haben nicht zeigen, „wie“ es hat nicht funktioniert. Hat es nicht kompilieren? Hat es kompilieren, aber nicht korrekt ausgeführt?

Wenn die Fragmente geschnitten aus dem Code, wie sie ist und hier eingefügt, haben Sie wahrscheinlich Syntaxfehler bekommen.

Hier ist ein voll funktionsfähiges Programm, das tut, was Sie wollen, erscheinen:

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;

Dies kompiliert und ausgeführt Gnat mit, und während Sie eine alte Version davon verwendet werden können, ist es nicht selbst ein „alter Compiler“, die neueste / größte kostenlose Version davon, GNAT GPL 2009 , ist leicht verfügbar.