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);
dDataIni:=dDataIni+1;
End;
End;
[ ]´s
Moacir
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.4 - Release Date: 30/11/2004
--
<<<<< 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
