как распечатать дату календаря

StackOverflow https://stackoverflow.com/questions/2042126

  •  19-09-2019
  •  | 
  •  

Вопрос

Я использую Gnat (старый компилятор ada95), и у меня возникла проблема с печатью даты.
Я заявил:(с Ada.calendar)

Дата:Календарь.Время;
Cdate:= Calendar.Time_Of(Год => 2010, Месяц => 1, День => 10);

Сейчас попробовал распечатать -

Put_Line("Год:" & Год(Cdate)'Img);

Но мне это не удалось...

Это было полезно?

Решение

Вы предоставили только фрагменты программы, поэтому сложно сказать, что вы на самом деле написали и пытаетесь запустить.И вы не указали, «как» это не сработало.Он не скомпилировался?Он скомпилировался, но работал неправильно?

Если фрагменты были вырезаны из вашего кода как есть и вставлены сюда, вы, вероятно, получили синтаксические ошибки.

Вот полностью рабочая программа, которая делает то, что вам нужно:

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;

Он был скомпилирован и запущен с использованием Gnat, и хотя вы можете использовать его старую версию, сам по себе он не является «старым компилятором», а является его последней/лучшей бесплатной версией. GNAT GPL 2009, легко доступен.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top