Boa tarde! uses SysUtils; ... var SeuArray: array[0..11] of TDateTime; i:Byte; .... SeuArray[0]:=SuaDataAtual; for i:=1 to 11 do SeuArray[i]:=IncMonth(SuaDataAtual,i);
Boa sorte. Ulisses -----Mensagem Original----- De: Ricardo Ravelli Para: delphi-br@yahoogrupos.com.br Enviada em: quinta-feira, 7 de dezembro de 2006 11:47 Assunto: [delphi-br] Gravar Datas em um array Tenho um edit no qual o usuário informa uma data, preciso pegar essa data e gravar em um array de 12 posições, aumentando a data inicial em um mês a cada posição o array que ele é salvo. Alguém poderia me ajudar? Obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]