Hesaplama hk.

[zafer007]

Merhaba arkadaşlar,

Yapmış olduğum çalışmada şunu yapmak istiyorum ama bir türlü olmadı. Yapmak istediği şey şu..

İlk tarih ve son tarih arasındaki Tamişgününü sonuç olarak vermesi.

İkinci husussa tarih girişi yaparken tatil günü ise uyarıp verip kayda izin vermemesidir...

Bu konuda yardımlarınızı bekliyorum..

 

[Taruz]

Merhaba..

Tüm verilerin içerisinden hafta sonlarını sorgu üzerinden vereceğimiz ölçüt ile ayırmamız gerekir..

Bunun için;

ilk olarak sorguda boş bir alanda tarihin biçimini değiştirelim:

Format([tarih];"dddd")

Sonrasında aynı alanın hemen altındaki ölçüt kısmına da

<>"Cumartesi" And <>"Pazar"

yazalım.

Artık sorgu ya da form üzerinde hangi türde süzme yaparsanız yapın sonuçları hafta içine göre alırsınız..


İkinci istediğiniz, denemedim ama en kolay form üzerinde geçerlilik kuralına dayandırılarak yapılabilir sanırım..

 

[zafer007]

Sn. Taruz ilk önce ilginize teşşekür ederim.

Galiba beni yanlış anladınız. Benim yapmak istediğim şudur.

Kullanıcı kayıt girişi yapıyor. Ürünün geldiği tarihi yazıyor, sonrada çıkış tarihini yazarak, Ürün ne kadar beklediğini text kutusunda tamişgünü olarak 3, 4,2 gün bekledi şeklinde sonucu otomatik olarak yazacak.

İkinciside kullanıcı kayıt yapıyor tarih girecek tarih eğer hafta sonu veya tatil bir gün ise uyarı verip kayıt yaptırmayacak.

İlginize şimdiden teşekkürler arkadaşlar,

 

[Taruz]

Sorguda (yada formda) iki tarihi birbirinden çıkartın, sayıyı alırsınız.. Yanlış anlamadıysam tabii

[giriştarihi]-[çıkıştarihi]

 

[zafer007]

Sn. taruz sizin bu dediğiniz iki tarih arsındaki farkı gösteriyor. Benim yapmak istediğimse iki tarih arasında tamişgününü göstermek.

 

[zafer007]

Yardım edecek kimse yok mu.. ???

 

[beab05]

Merhaba; alttaki fonsiyonu modul olarak kaydedin ve sorgunuzda örneğin,

işgünü:GetNumberOfWorkDays([ilk tarih];[ikinci yarih])

olarak kullanın ya da herhangi bir alanın denetim kaynağındfa başına "=" koyarak.

Public Function GetNumberOfWorkDays(sStartDate, sEndDate)
    Dim iDays
    Dim iWorkDays
    Dim sDay
    Dim i
    
    iDays = DateDiff("d", sStartDate, sEndDate)
   
    iWorkDays = 0
   
    For i = 0 To iDays
      'First day of the week is sunday
      sDay = Weekday(DateAdd("d", i, sStartDate))
      If sDay <> 1 And sDay <> 7 Then
        iWorkDays = iWorkDays + 1
      End If
    Next
    GetNumberOfWorkDays = iWorkDays
  End Function

Cumartesi ve Pazar günlerini atlayarak sayar..

 

[ayhan2122]

Sn zafer007;

Ekte iki dosya var. Biri excel dosyası, diğeri access. Excell dosyasında tatil günleri tablosu oluşturdum. Neden excel derseniz orada daha hızlı olduğu için ve bu excel artık lazım değil. Sonra accesten "veri al" ile bu tabloyu access'e çektim. Oluşturduğum bu tablonun adı "Sayfa1"dir. Sayfa1'de tatil olan günlerin [Tatil] alanı "1" dir. Normal günler "0" dır. Cumartesi ve pazarları tatil olarak belirlemek kolay, bu "Tatiller Sorgu" ile kolayca yapılabiliyor, ancak, diğer tatil günlerinin tek tek "1" olarak işaretlenmesi lazım.
Tatil günleri belirtildikten sonra accesste "kayit" formunda istediğiniz olaylar gerçekleşiyor. 3 tane alt form var. Mantığı göresiniz diye alt formları gizlemedim.
Umarım istediğiniz buydu.
Saygılar, iyi çalışmalar.

 

[zafer007]

Tam olarak buda.. Sadece ben iki tarih arası işgününü istiyorum..

Sn. ayhan2122 ilginizede ayrıca teşekkür ederim..

 

[zafer007]

Sn. beab05,

Yazmış olduğu kodu uyguladım ancak yeni kayıt yaparken aşağıdaki döngüde hata veriyor. yardımlarını rica ederim.

iWorkDays = 0

For i = 0 To iDays

 

[zafer007]

Merhaba arkadaşlar,

Bu hata hakkında yardımcı olacak yokmudur..??

 

[ayhan2122]

Sn zafer007;

Tam olarak buda.. Sadece ben iki tarih arası işgününü istiyorum..

Siz istiyorsunuz ki program sizin hangi günlerinizin resmi tatil olduğunu bilsin. Hadi Cumartesi-Pazar bir şekilde tatil günü olarak tanıtılabilir ama diğer tatil günlerini , mesela Ramazan Bayramını siz belirtmeden program nasıl bilebilirki.
Velhasıl iki tarih arası resmi işgünü sayısını bulabilmek için tatil günleri belirtilmelidir.
Ben de resmi tatil günlerini bir tabloda belirttim ve sizin sadece istediğinizi yaptım.
(2 şey istemiştiniz; yazılan tarih tatil günü ise uyarsın ve iki tarih arasında kalan işgünü sayısını hesaplasın)
Saygılar, iyi çalışmalar.

 

[zafer007]

Sn. ayhan2122

Sizin gönderdiğiniz örnek işime yaradı sağolun yardımınız için. Ancak Sn. beab05 gönderdiği örneği farklı bir yerde kullanıyorumda. Kulandığım yerde yeni bir kayıt eklediğim zaman aşağıdaki döngüde bir hata veriyor..

iWorkDays = 0

For i = 0 To iDays

Bilginiz varmıdır acaba.?

 

[beab05]

Merhaba;
Hata denetimi ekleyiniz..

Public Function GetNumberOfWorkDays(sStartDate, sEndDate)
[COLOR="red"]On Error GoTo bb[/COLOR]
    Dim iDays
    Dim iWorkDays
    Dim sDay
    Dim i
    
    iDays = DateDiff("d", sStartDate, sEndDate)
   
    iWorkDays = 0
   
    For i = 0 To iDays
      'First day of the week is sunday
      sDay = Weekday(DateAdd("d", i, sStartDate))
      If sDay <> 1 And sDay <> 7 Then
        iWorkDays = iWorkDays + 1
      End If
    Next
    GetNumberOfWorkDays = iWorkDays
[COLOR="Red"]bb:
    Exit Function[/COLOR]
  End Function

 

[zafer007]

Sn. beab05

Yardımlarınız için çok teşekkür ederim..