일정 날짜 인쇄 방법

Question

GNAT (ADA95의 오래된 컴파일러)를 사용하고 있는데 날짜를 인쇄하는 데 문제가 있습니다.
나는 선언했다 : (ada.calendar와 함께)

CDATE : Calendar.Time;
cdate : = calendar.time_of (Year => 2010, Month => 1, day => 10);

이제 인쇄하려고했습니다.

put_line ( "Year :"& Year (cdate) 'img);

그러나 나는 그렇게하지 않았다 ...

Answer 1

당신은 프로그램 조각 만 제공 했으므로 실제로 작성하고 실행하려는 내용을 말하기가 어렵습니다. 그리고 당신은 "어떻게"가 작동하지 않았다는 것을 나타내지 않았습니다. 컴파일하지 않았습니까? 컴파일되었지만 올바르게 실행되지 않았습니까?

조각이 코드에서 그대로 절단되어 여기에 붙여 넣으면 구문 오류가 발생했을 것입니다.

다음은 원하는 것으로 보이는 완전한 작업 프로그램입니다.

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, 쉽게 구할 수 있습니다.