- Original Message -
From: Rogério [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, December 02, 2004 5:43 PM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Este método, não dará o resultado esperado, pois o resultado
de MinhaDataInicial+30 são dias corridos e não dias úteis.
Acho que não
01, 2004 11:59 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Rogerio/Moita,
Exato, a função retorna TRUE se for um feriado.
Uso esta outra funçao que deve dar um bom empurrão no que vc´s querem
fazer.
{Colocar dateutil no USES }
Function QtdDiasUteis(nMes : Integer=0; nAno: Integer=0
Rogerio,
Faça uma mudança simples, veja como:
Function QtdDiasUteis(dDataIni: tDateTime; dDataFim: tDateTime): Integer;
Begin
Result:=0;
While dDataIni=dDataFim do
Begin
If (DayOfWeek(dDataIni) in [2,3,4,5,6]) and
(Not Ve_Feriado(dDataIni)) then
Inc(Result);
Feira de Carnaval
Valeu.
[ ]'s
- Original Message -
From: Prisma Sistemas - Moacir [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, December 02, 2004 7:08 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Rogerio,
Faça uma mudança simples, veja como:
Function QtdDiasUteis(dDataIni
.
Ex.:
- Segunda Feira de Carnaval
Valeu.
[ ]'s
- Original Message -
From: Prisma Sistemas - Moacir [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, December 02, 2004 7:08 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Rogerio,
Faça uma mudança simples, veja como
: Re: [delphi-br] Re: DIAS ÚTEIS
Td. Bem mas...
O que estamos comentando é :
:- dada uma Data e, um Número de Dias Úteis, achar a Data Final.
Novamente:
Acha_a_Data_Dia_Util('01/10/2004',30)
Que Retornará: 17/11/2004
Outro detalhe, acho que tem alguns feriados (dias não úteis) que não
, December 02, 2004 3:19 PM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Rogerio,
1) Quanto a 2a feira de Carnaval - No que me consta não é feriado e sim
ponto facultativo (pelo menos é o que sei, caso esteja errado,
desculpe-me).
Caso seja realmente feriado, basta vc alterar a função e incluir.
2
Subject: [delphi-br] Re: DIAS ÚTEIS
Gostaria de ajudar a montar o algoritmo se você puder me passar a
tabela de feriados ficaria muito feliz em poder ajudar.
[]'s
Paulo Drummond Filho
[EMAIL PROTECTED]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas
, December 01, 2004 8:59 AM
Subject: [delphi-br] Re: DIAS ÚTEIS
Gostaria de ajudar a montar o algoritmo se você puder me passar a
tabela de feriados ficaria muito feliz em poder ajudar.
[]'s
Paulo Drummond Filho
[EMAIL PROTECTED]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Moacir,
Pelo que entendi, esta funcao retorna True se a data especificada for um
feriado ? Seria isso mesmo ?
- Original Message -
From: Prisma Sistemas - Moacir
To: [EMAIL PROTECTED]
Sent: Wednesday, December 01, 2004 9:50 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
PROTECTED]
Assunto: Re: [delphi-br] Re: DIAS ÚTEIS
Já testei, é isto mesmo...
só tem um problema...
Segunda Feira de carnaval, não acusa como sendo um feriado (Feriado
Bancário) !
Na redoma, este dia não é um dia útil. (Acho que existem outros feriados que
esta função não considera... vou checar.) Mas ja
PROTECTED]
Sent: Wednesday, December 01, 2004 11:32 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Acho que estamos quase chegando lá...
Só falta eu conseguir agora, fazer a função:
Acha_a_Data_Dia_Util('01/10/2004',30)
Que Retornará: 17/11/2004
Se alguém conseguir tb...
[ ]'s
- Original
PROTECTED]
Sent: Wednesday, December 01, 2004 11:59 AM
Subject: Re: [delphi-br] Re: DIAS ÚTEIS
Rogerio/Moita,
Exato, a função retorna TRUE se for um feriado.
Uso esta outra funçao que deve dar um bom empurrão no que vc´s querem
fazer.
{Colocar dateutil no USES }
Function QtdDiasUteis
13 matches
Mail list logo
