|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 696 (0x2b8)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
with Calendar;
procedure Afficher_Date is
Date : Calendar.Time;
Year : Calendar.Year_Number;
Month : Calendar.Month_Number;
Day : Calendar.Day_Number;
Day_Dur : Calendar.Day_Duration;
type The_Month is (Aucun, Janvier, Fevrier, Mars, Avril, Mai, Juin,
Juillet, Aout, Septembre, Octobre, Novembre, Decembre);
begin
Date := Calendar.Clock;
Calendar.Split (Date, Year, Month, Day, Day_Dur);
Text_Io.Put ("La date du jour est le :");
Text_Io.Put (Calendar.Day_Number'Image (Day) & " ");
Text_Io.Put (The_Month'Image (The_Month'Val (Month)));
Text_Io.Put_Line (Calendar.Year_Number'Image (Year));
end Afficher_Date;