Como imprimir a data de calendário

Question

Eu estou usando mosquito (compilador antigo de Ada95) e estou tendo problema para imprimir a data.
I declaired: (com Ada.calendar)

CDate: Calendar.Time;
CDate: = Calendar.Time_Of (Ano => 2010, mês => 1, Dia => 10);

Agora que eu tentei imprimi-lo -

Put_Line ( "Ano:" & Year (CDate) 'Img);

mas eu não consegui fazê-lo ...

Answer 1

Você só forneceu fragmentos de programa, por isso é difícil dizer o que você realmente escreveu e está tentando executar. E você não indicam "como" não funcionou. Será que ele não compilar? Será que ele compilar, mas não funcionar corretamente?

Se os fragmentos foram cortados como está do seu código e colado aqui, você já deve ter chegado erros de sintaxe.

Aqui está um programa totalmente funcional que faz o que você parece 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;

Esta foi compilado e executado usando mosquito, e enquanto você pode estar usando uma versão antiga do-lo, não em si um "velho compilador", a última e melhor versão / livre dela, GNAT GPL 2009 , está prontamente disponível.