Se for delphi 6 para frente, use a função DaysInAMonth (lembre de declarar
DateUtils no uses da sua unit).
Leandro
----- Original Message -----
From: "caverinha" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, March 24, 2005 10:57 AM
Subject: Re: [delphi-br] Função que retorna os últimos dias do mês
>
> essa funcao da pra vc ver qual e o ultimo dia do mes
>
> function DiasDesteMes(iAno, iMes: Integer): Integer;
> {Retorna o número de dias do mes}
>
> const
> DiasNoMes: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31,
> 30, 31, 30, 31);
>
> begin
> Result := DiasNoMes[iMes];
> if (iMes = 2) and AnoBissexto(iAno) then Inc(Result); { soma um dia em
> fevereiro}
>
> end;
>
> at+ caverinha
>
> caverinha escreveu:
>
> >iai blz mano
> >pra vc sabe q dia é da semana é essa funcao do delphi
> >dia : Integer;
> >dia := DayOfWeek(strtodate(data))
> >case dia of
> > 1 : "segunda";
> > 2 : "terça";
> > 3 : "quarta";
> > 4 : "quinta";
> > 5 : "sexta";
> > 6 : "sabado";
> > 7 : "domingo";
> >
> >da pra vc fazer um funcao q va da primeira data ate a ultima
> >dai vc vai mostrando quando for igual a tal dia da semana ...
> >e + ou - isso de uma olhada no help do delphi ...
> >
> >caverinha
> >
> >Eduardo Silva ® escreveu:
> >
> >
> >
> >>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
> >> \ ( ) /
> >> \_) (_/
> >>
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
> >
> >
> >
>
>
>
> --
> Outgoing mail is certified Virus Free.
> Checked by AVG Anti-Virus (http://www.grisoft.com).
> Version: 7.0.269 / Virus Database: 266.5.1 - Release Date: 27/02/2005
>
>
> --
> <<<<< 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
