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
<*> 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
