[delphi-br] Função que retorna os últimos dias do mês

2005-03-24 Por tôpico Eduardo Silva ® 

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

* 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

Re: [delphi-br] Função que retorna os últimos dias do mês

2005-03-24 Por tôpico caverinha 

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

Re: [delphi-br] Função que retorna os últimos dias do mês

2005-03-24 Por tôpico caverinha 

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

Re: [delphi-br] Função que retorna os últimos dias do mês

2005-03-24 Por tôpico Weverton Gomes de Morais 

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

Re: [delphi-br] Função que retorna os últimos dias do mês

2005-03-24 Por tôpico Leandro 

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