come stampare la data del calendario

Question

Sto usando Gnat (vecchio compilatore di Ada95) e sto avendo problemi a stampare la data.
I Dichiarato: (con Ada.calendar)

  

CDATE: Calendar.Time;
  CDate: = Calendar.Time_Of (Anno => 2010, Mese => 1, Giorno => 10);

Ora ho provato a stampare -

  

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

Ma Io non ha ancora riuscito a farlo ...

Answer 1

È fornito solo frammenti di programma, quindi è difficile dire che cosa realmente scritto e sta tentando di eseguire. E non ha indicato "come" non ha funzionato. non ha compilato? Ha fatto compilare, ma non eseguito correttamente?

Se i frammenti sono stati tagliati così com'è dal codice e incollati qui, probabilmente avete ottenuto gli errori di sintassi.

Ecco un programma completamente funzionante che fa quello che sembrate desiderare:

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;

Questo è stato compilato ed eseguito utilizzando Gnat, e mentre si può utilizzare una vecchia versione di esso, non per sé un "vecchio compilatore" è, la versione più recente / più libera di esso, GNAT GPL 2009 , è prontamente disponibile.