martinus a écrit :
J'ai compilé mais mon programme me dit : 1970 7 28...
Code :
- with Text_Io; use Text_Io;
- with Ada.Calendar; use Ada.Calendar;
- with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
- procedure Heure is
- Mon_Time : Time;
- Annee : Year_Number;
- Mois : Month_Number;
- Jour : Day_Number;
- Secondes : Day_Duration;
- begin
- loop
- -- à l'utilisation (le temps est récupéré dans mon_time) :
- Split ( Mon_Time, Annee, Mois, Jour, Secondes );
- -- ici tu peux lire les données de années, mois, jour et secondes, ce sont des entiers.
- Put ( Integer'Image(Jour) );
- Put ( Integer'Image(Mois) );
- Put ( Integer'Image(Annee) );
- delay 1.0;
- end loop;
- end;
|
Et donc, la date n'est pas la bonne... C'est normal ?
Merci quand même.
|