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]
