comment imprimer la date du calendrier

Question

J'utilise Gnat (ancien compilateur d'ada95) et j'ai un problème pour imprimer la date.
I Declaree: (avec Ada.calendar)

CDate: Calendar.Time;
Cdate: = Calendar.Time_Of (Année => 2010, Mois => 1, Jour => 10);

Maintenant, j'ai essayé d'imprimer -

Put_Line ("Année:" & Année (CDATE) 'Img);

Mais je na pas réussi à le faire ...

Answer 1

Vous ne fourni des fragments de programme, il est donc difficile de dire ce que vous avez écrit en fait et essayez d'exécuter. Et vous n'avez pas indiqué "comment" cela n'a pas fonctionné. N'a-t-il pas compilé? A-t-il compilé mais ne fonctionne pas correctement?

Si les fragments ont été découpés tels quels à partir de votre code et collés ici, vous avez probablement des erreurs de syntaxe.

est ici un programme de travail bien qui fait ce que vous semblez vouloir:

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; 

Cela a été compilé et exécuté en utilisant Gnat, et pendant que vous utilisez peut-être une ancienne version de celui-ci, ce n'est pas lui-même un " ancien compilateur ", la dernière/plus grande version gratuite de celui-ci, GNAT GPL 2009, est facilement disponible.