Re: [delphi-br] Dias uteis

sandro cunha Thu, 12 Jan 2006 03:28:54 -0800

  Valeu Daniel!!!!
  Um grande Abraço.
  Obrigado.

Daniel Bastos <[EMAIL PROTECTED]> escreveu:
  Só vai ser possível se vc tiver um cadastro onde tenha os dias de feriados.


mas, de qualquer forma, vai uma função supimpa, que conta os "dias
úteis"(quer dizer, sem sábados e domingos).

function ContaDiasUteis(Inicio, Fim : TdateTime) : integer;
var
  ct : integer;
  Data : TdateTime;
begin
  data := Inicio;
  result := 0;
  for ct := 0 to DaysBetween(Inicio, Fim) do
  begin
    if (DayOfWeek(Data) <> 6) and (DayOfWeek(Data) <> 1) then
      Result := result + 1;
    data := data + 1;
  end;
end;

Abs.
Daniel Augusto Bastos

Em 09/01/06, sandro cunha <[EMAIL PROTECTED]> escreveu:
>
> Caros,
> Como saber se ja se passaram 3 dias uteis a partir de uma data previamente
> estabelecida????
>
>
> Abraços
> Sandro
>
>
> ---------------------------------
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:            PUBLICIDADE
    var lrec_target="_blank";var lrec_URL=new Array();  
lrec_URL[1]="http://br.rd.yahoo.com/SIG=12feg5hij/M=387526.7663462.8676324.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1136983506/A=3221952/R=0/id=flashurl/SIG=16ehti2go/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10076&LID=289961&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs";;
  var 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0105_lrec_dell_fds_producto.swf?clickTAG=javascript:LRECopenWindow(1)";
  var 
lrec_altURL="http://br.rd.yahoo.com/SIG=12feg5hij/M=387526.7663462.8676324.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1136983506/A=3221952/R=1/id=altimg/SIG=16ehti2go/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=10076&LID=289961&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs";;
  var
 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0105_lrec_dell_fds_producto.jpg";;
  var lrec_width=300;var lrec_height=250;      
  
---------------------------------
  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 Termos do Serviço do 
Yahoo!. 

  



                
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

[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

Re: [delphi-br] Dias uteis

Responder a