ve se isso ajuda
var
Dia : Integer;
DiaF,
Mes,
Ano : Word;
begin
DecodeDate(Now , Ano, Mes, DiaF);
DecodeDate((IncMonth(EncodeDate(Ano, Mes, 1), 1)) - 1, Ano, Mes, DiaF);
Memo1.Clear;
for Dia := 1 to DiaF do
begin
Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy', EncodeDate(Ano, Mes,
Dia)));
end;
end;
Eduardo
Alexandre Gois escreveu:
> Olá Pessoal,
>
> Tô atrás de uma rotina que leia os dias do mês corrente e grave numa
> tabela.
> Tipo:
>
> Data
> 01/08/2006
> 02/08/2006
> 03/08/2006
> ... e assim por diante.
>
> Se o mês tiver 30 dias grave até 30 se tiver 31 até 31 ou se for
> fevereiro 28 ou 29.
>
> Se alguém souber de um exemplo ou rotina, por favor me envie.
>
> Desde já, agraceço a todos.
>
> Alexandre.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
_______________________________________________________
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
