Re: Data + 14 dni roboczych

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

Article #137842

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

#137842

From: Maciej Franciszkowski
Date: Fri, 01 Sep 2023 19:28

32 lines
2340 bytes

piątek, 1 września 2023 o 21:04:43 UTC+2 Maciej Franciszkowski napisał(a):
> piątek, 1 września 2023 o 20:12:46 UTC+2 Maciej Franciszkowski napisał(a): 
> > Jeżeli chodzi o 14 dni roboczych to proponuję: 
> > 
> > 1. Utworzyć tabelkę pomocniczą z jedną kolumną - datami świąt tabela DatySwiat kolumna [DataSw] 
> > 2. Napisać/ zweryfikować poniższą funkcję. 
 /Dawno nie pisałem stąd błędy

Teraz poprawnie:

*******
Function DateAddWD14(DataP As Date) As Date

Dim DataK As Date
Dim i As Integer

IF Not IsDate(DataP) Then Exit Function
DateK = DataP

Do Until i = 14
IF (WeekDay(DataK) Not IN (7, 1) And IsNull(DLookup("[DataSw]", "DatySwiat", "[DataSw] = #" & DataK & "#"))) Then
i = i + 1
End IF
DataK = DateAdd("d", 1, DataK)
Loop

DateAddWD14 = DataK
End Function

******

MF

Technical Details

Message-ID: <fce859ce-cdde-4acb-9f3f-79f9729a85f8n@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!2.eu.feeder.erje.net!3.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail

References:

<64159df5-391c-44a3-865e-2699f0e0b3a7n@googlegroups.com> <4f1897e8-7082-4bd7-8e1f-04670936193en@googlegroups.com> <e8193370-99a1-422e-aa11-2d7ebbad584dn@googlegroups.com> <feb55c7b-74a0-44f9-ae8e-8875e8f5de60n@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 2002:a05:620a:8287:b0:76f:18c:3a7d with SMTP id ox7-20020a05620a828700b0076f018c3a7dmr70729qkn.7.1693596519284;        Fri, 01 Sep 2023 12:28:39 -0700 (PDT)
X-Received: by 2002:a17:902:e741:b0:1c0:e014:90c5 with SMTP id p1-20020a170902e74100b001c0e01490c5mr1215785plf.5.1693596518761; Fri, 01 Sep 2023 12:28:38 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!2.eu.feeder.erje.net!3.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Fri, 1 Sep 2023 12:28:38 -0700 (PDT)
In-Reply-To: <feb55c7b-74a0-44f9-ae8e-8875e8f5de60n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=83.11.113.53; posting-account=7jb3mgoAAAByT2K-Cl2cB8m9Ft1phpZT
NNTP-Posting-Host: 83.11.113.53
References: <64159df5-391c-44a3-865e-2699f0e0b3a7n@googlegroups.com> <4f1897e8-7082-4bd7-8e1f-04670936193en@googlegroups.com> <e8193370-99a1-422e-aa11-2d7ebbad584dn@googlegroups.com> <feb55c7b-74a0-44f9-ae8e-8875e8f5de60n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <fce859ce-cdde-4acb-9f3f-79f9729a85f8n@googlegroups.com>
Subject: Re: Data + 14 dni roboczych
From: Maciej Franciszkowski <fwoda7@gmail.com>
Injection-Date: Fri, 01 Sep 2023 19:28:39 +0000
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message