Pode tentar fazer assim:
function DataUltimaSegunta(iMes, iAno: Integer): TDate
begin
// Obtendo último dia do mês ano informados
Result := IncMonth(EncodeDate(iAno, iMes, 1)) - 1;
// Verificado última segunda feira
while DayOfWeek(Result) <> 2 do
Result := Result - 1;
end;
procedure Button1Click(Sender: TObject);
var
i : Integer;
begin
// Adicionado data da última segunda feira de cada mês do ano atual
for i := 1 to 12 do
ListBox1.Add(DateToStr(i, YearOf(Date)));
end;
----- Original Message -----
From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
To: "Grupo Delhpi-br" <delphi-br@yahoogrupos.com.br>
Sent: Thursday, March 24, 2005 10:28 AM
Subject: [delphi-br] Função que retorna os últimos dias do mês
>
> Galera, preciso desenvolver uma função onde eu coloco em um edit o ano e
> em
> outro edit o dia da semana e ela me retorne todos os dias escolhidos do
> ano.
>
> Por exemplo:
>
> Eu queria saber quando vai cair todos as últimas segundas-feiras dos meses
> deste ano.
>
> Alguém tem idéia de como eu faço isso ?
>
> E uma outra função que me retornasse todos os dias de um mes ou dos meses
> do
> ano. Por exemplo: eu digito em um edit o ano de
>
> 2005 e em outro o dia (2 por ex) e me retorna todos os dias dos meses que
> cai as segundas-feiras.
>
>
> ~\\|//~
> -(o o)-
> o--------------oOOOo--(_)--oOOOo-------------o
> | |
> | Eduardo de Almeida Silva |
> | Kobra Sistemas |
> | [EMAIL PROTECTED] - (14)3263-0326 |
> | |
> | .oooO Oooo. |
> o----------------( )---( )---------------o
> \ ( ) /
> \_) (_/
>
>
>
> --
> <<<<< 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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
--
<<<<< 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] ou [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
