Re: Dni robocze ...

Article View: pl.comp.bazy-danych.msaccess

Article #137459

Back to pl.comp.bazy-danych.msaccess Previous Next

#137459

From: minfo
Date: Wed, 17 May 2017 07:47

38 lines
2243 bytes

Witaj,
Możesz też użyć zmodyfikowanej funkcji Artura Powałki (C) -1999
Powiązałem z napisaną powyżej funkcją czy_swieto


Function WorkingDays(StartDate As Variant, EndDate As Variant) As Long
' Copyright (C) X.1999 Artur Powalka
' funkcja liczy ilosc dni roboczych w zadanym
'przedziale czasu

Dim l As Long           ' licznik
Dim dtData As Date      ' tymczasowa zmienna do daty

' obsluga blednych danych
If IsNull(StartDate) Or IsNull(EndDate) Then
    WorkingDays = 0
    Exit Function
End If

' inicjalizacja zmiennych
l = 0
'dtData = StartDate

For dtData = StartDate To EndDate
    
        If Not czy_swieto(dtData) Then
            l = l + 1
        End If


Next dtData

WorkingDays = l

End Function

/
MF

Technical Details

Message-ID: <c0cd225b-eea6-4faa-b826-8d9ff1a2df35@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!1.eu.feeder.erje.net!feeder.erje.net!2.us.feeder.erje.net!newspeer1.nac.net!border2.nntp.dca1.giganews.com!nntp.giganews.com!t26no52767qtg.1!news-out.google.com!m134ni528itb.0!nntp.google.com!67no88868itx.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References:

<60168896-416e-4f0e-bbc9-f65e8b146b0c@googlegroups.com> <591a8706$0$15201$65785112@news.neostrada.pl> <4318f42c-e32d-44c2-9589-ce6896b05b8b@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 10.200.51.84 with SMTP id u20mr877296qta.14.1495007270984;        Wed, 17 May 2017 00:47:50 -0700 (PDT)
X-Received: by 10.157.55.133 with SMTP id x5mr42573otb.10.1495007270941; Wed, 17 May 2017 00:47:50 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!1.eu.feeder.erje.net!feeder.erje.net!2.us.feeder.erje.net!newspeer1.nac.net!border2.nntp.dca1.giganews.com!nntp.giganews.com!t26no52767qtg.1!news-out.google.com!m134ni528itb.0!nntp.google.com!67no88868itx.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Wed, 17 May 2017 00:47:50 -0700 (PDT)
In-Reply-To: <4318f42c-e32d-44c2-9589-ce6896b05b8b@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.241.94.194; posting-account=vYGi6woAAAA6NlWlzOm2dBNZ6sPJDKfx
NNTP-Posting-Host: 213.241.94.194
References: <60168896-416e-4f0e-bbc9-f65e8b146b0c@googlegroups.com> <591a8706$0$15201$65785112@news.neostrada.pl> <4318f42c-e32d-44c2-9589-ce6896b05b8b@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <c0cd225b-eea6-4faa-b826-8d9ff1a2df35@googlegroups.com>
Subject: Re: Dni robocze ...
From: minfo@onet.pl
Injection-Date: Wed, 17 May 2017 07:47:50 +0000
Lines: 38
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message