iş günü bulan kod

[gince]

merhaba iki tarihi arasında kaç iş günü geçtiğini bulmak istiyorum. Yani hafta sonları ve resmi tatilleri saymadan farkı bulan bir program. Bu konuda yardım ederseniz çok sevinirim. Teşekkürler

[turkcanfidan]

Kod: Tümünü seç

procedure TForm1.tcbutton1Click(Sender: TObject);
var
basla, bitis, tarih :TDate;
isGunu, Tatil : smallint;

begin
   basla    := strtodate('20.10.2006');
   bitis    := strtodate('01.11.2006');
   isGunu   := 0;
   Tatil    := 0;
   tarih    := basla;

   While not (tarih = bitis) do
      begin
      if (dayofweek(tarih) = 1)   // Pazar
      or (dayofweek(tarih) = 7)    // Cumartesi
         then Tatil := Tatil + 1
         else isgunu := isGunu + 1;

      Tarih := IncDay(Tarih);
      end;
showmessage(format('İş günü : %d  Tatil : %d',[isGunu,Tatil] ));
end;

Bu kod işini görür umarım

[aslangeri]

s.a.
forumumuz gayet geniş bir arşive sahip.
arama yapalım daha çabuk sonucaulaşalım.
iş günü
viewtopic.php?t=4689&highlight=g%FCn%FC
kolay gelsin.