Re: Dni robocze ...

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

Article #137460

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

#137460

From: Krzysiek ZULUS
Date: Fri, 19 May 2017 09:37

40 lines
2399 bytes

W dniu środa, 17 maja 2017 09:47:51 UTC+2 użytkownik mi...@onet.pl napisał:
> 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
Dziękuję za odpowiedź.

Technical Details

Message-ID: <3ebee6ee-313f-4a5b-9a28-7349921149e5@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!newsfeed.pionier.net.pl!news.glorb.com!67no613898itx.0!news-out.google.com!m134ni2742itb.0!nntp.google.com!67no613417itx.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> <c0cd225b-eea6-4faa-b826-8d9ff1a2df35@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 10.99.114.9 with SMTP id n9mr4114771pgc.1.1495186648056;        Fri, 19 May 2017 02:37:28 -0700 (PDT)
X-Received: by 10.157.28.130 with SMTP id l2mr185029ota.17.1495186648006; Fri, 19 May 2017 02:37:28 -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!newsfeed.pionier.net.pl!news.glorb.com!67no613898itx.0!news-out.google.com!m134ni2742itb.0!nntp.google.com!67no613417itx.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Fri, 19 May 2017 02:37:27 -0700 (PDT)
In-Reply-To: <c0cd225b-eea6-4faa-b826-8d9ff1a2df35@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=95.48.206.154; posting-account=QXa8DAoAAADLyZC0nhuBrkyBjEj_3WOt
NNTP-Posting-Host: 95.48.206.154
References: <60168896-416e-4f0e-bbc9-f65e8b146b0c@googlegroups.com> <591a8706$0$15201$65785112@news.neostrada.pl> <4318f42c-e32d-44c2-9589-ce6896b05b8b@googlegroups.com> <c0cd225b-eea6-4faa-b826-8d9ff1a2df35@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <3ebee6ee-313f-4a5b-9a28-7349921149e5@googlegroups.com>
Subject: Re: Dni robocze ...
From: Krzysiek ZULUS <krzysztof.janusz@delkar.pl>
Injection-Date: Fri, 19 May 2017 09:37:28 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message