Pergunta
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 ...
Solução
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.