function UltimoDiaUtil(dData: TDateTime; lSabDom: Boolean): TDateTime;
var
Ano, Mes, Dia : Word;
DiaDaSemana : Integer;
begin
DecodeDate(dData, Ano, Mes, Dia);
Inc(Mes);
if Mes > 12 then
begin
Mes := 1;
Inc(Ano);
end;
Result := EncodeDate(Ano, Mes, 01) - 1;
DiaDaSemana := DayOfWeek(Result);
if lSabDom = True then
begin
if DiadaSemana = 7 then
Result := EncodeDate(Ano, Mes, 01) - 2
else
if DiadaSemana = 1 then
Result := EncodeDate(Ano, Mes, 01) - 3
else
Result := EncodeDate(Ano, Mes, 01) - 1;
end
else
Result := EncodeDate(Ano, Mes, 01) - 1;
end;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo Paci Galvão
Enviada em: quinta-feira, 1 de dezembro de 2005 14:04
Para: Lista Delphi
Assunto: Fw: [delphi-br] Ultimo dia util
Olá,
>>Alguém tem alguma função que retorno o último dia util de um mês
qualquer?
Acho que o que você quer é saber em que dia cairá
a última sexta-feira do mês (independente de ser
feriado ou não), considerando-se sábado
e domingo como dias não-úteis.
É isto?
Saudações,
Eduardo Paci Galvão
Engenheiro Eletricista UFMG 1990
www.egalvao.com.br
MSN: [EMAIL PROTECTED]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
__________ NOD32 1.1309 (20051130) Information __________
This message was checked by NOD32 antivirus system.
http://www.nod32.com
[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
