cómo imprimir la fecha de calendario

Question

Estoy usando Mosquito (antiguo compilador de Ada95) y estoy teniendo problemas para imprimir la fecha.
I declaired: (con Ada.calendar)

  

CDATE: Calendar.Time;
  Cdate: = Calendar.Time_Of (Año => 2010, Mes => 1, Día => 10);

Ahora he tratado de imprimirlo -

  

Put_Line ( "Año:" & Año (CDATE) 'IMG);

Pero Yo aún no ha conseguido hacerlo ...

Answer 1

Sólo se ha proporcionado fragmentos de programas, por lo que es difícil saber lo que realmente escribió y está intentando ejecutar. Y usted no indicó "cómo" no funcionó. ¿No se compila? ¿Se compila pero no funcionar correctamente?

Si los fragmentos se cortaron como está de su código y pegar aquí, es probable que haya conseguido los errores de sintaxis.

Esto es un programa totalmente funcional que hace lo que parecen querer:

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;

Esto fue compilada y ejecutada mediante mosquito, y aunque puede que esté utilizando una versión antigua de ella, no es en sí mismo un "viejo compilador", la última versión / mayor libres de ella, GNAT GPL 2009 , está fácilmente disponible.