Question
J'utilise Gnat (ancien compilateur de Ada95) et je vais avoir problème pour imprimer la date.
Je 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 ...
La solution
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 ne l'avez pas indiqué « comment » cela ne fonctionnait pas. At-il pas compilé? At-il la compilation mais pas fonctionner correctement?
Si les fragments ont été coupés en l'état de votre code et coller ici, vous avez probablement eu des erreurs de syntaxe.
Voici un programme de travail bien que 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;
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 « vieux compilateur », la dernière grande / version gratuite de celui-ci, GNAT GPL 2009 , est facilement disponible.