Senao me engano, nessa unit tem uma função que retorna o primeiro dia do mês.
então:
xData := StartOfTheMonth(date());
While MonthOf(xData) = MonthOf(Date()) do
begin
Salva xData na tabela;
xData := xData + 1;
end;
acho que é mais ou menos isso...
Plinio
----- Original Message -----
From: Murillo Proença
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, August 03, 2006 3:45 PM
Subject: [delphi-br] Re: Ler Datas / Dias Mês Corrente e Gravar em Tabela no
Banco.
Existe a unit DateUtils que tem uma função que retorna a quantidade de
dias de um mês/ano, aí é só fazer um for e montar as datas.
--- Em delphi-br@yahoogrupos.com.br, "Alexandre Gois"
<[EMAIL PROTECTED]> 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]
>
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/406 - Release Date: 2/8/2006
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
