iş günü bulan kod

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
gince
Üye
Mesajlar: 46
Kayıt: 20 Nis 2004 04:09

iş günü bulan kod

Mesaj gönderen 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
Üye
Mesajlar: 380
Kayıt: 31 Eki 2005 03:26

Mesaj gönderen 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 :)
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
forumumuz gayet geniş bir arşive sahip.
arama yapalım daha çabuk sonucaulaşalım.
:ara iş günü
viewtopic.php?t=4689&highlight=g%FCn%FC
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Cevapla