Re: Data + 14 dni roboczych

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

Article #137848

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

#137848

From: Maciej Franciszkowski
Date: Sun, 03 Sep 2023 16:22

16 lines
2254 bytes

Function DateAddWD14(DataP As Date) As Date
Dim DataK As Date
Dim i As Integer
IF Not IsDate(DataP) Then Exit Function
'Uprawomocnienie liczymy od następnego dnia od doręcznia - kodeks PA
'(tu data doręczenia to DataP)
DataK = DataP
i = 0 
Do Until i = 14
DataK = DateAdd("d", 1, DataK)
IF (WeekDay(DataK) <> 7 And WeekDay(DataK) <> 1 And (DCount("*", "DatySwiat", "DataSw = #" & DataK & "#") = 0)) Then
i = i + 1
End IF
Loop 
DateAddWD14 = DataK
End Function

Technical Details

Message-ID: <969b62b0-1022-40e5-a732-9879100d659bn@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!3.eu.feeder.erje.net!1.us.feeder.erje.net!feeder.erje.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!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> <fce859ce-cdde-4acb-9f3f-79f9729a85f8n@googlegroups.com> <1d9625c0-dcaf-46f0-bee1-21c8f14e47b6n@googlegroups.com> <2611ee43-5cd8-4419-a1cc-11fd3873da2fn@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 2002:a05:622a:1897:b0:40f:df11:8c07 with SMTP id v23-20020a05622a189700b0040fdf118c07mr188008qtc.1.1693758147997;        Sun, 03 Sep 2023 09:22:27 -0700 (PDT)
X-Received: by 2002:a05:6a00:2d96:b0:687:4fcf:8fd9 with SMTP id fb22-20020a056a002d9600b006874fcf8fd9mr3241250pfb.1.1693758147727; Sun, 03 Sep 2023 09:22:27 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!3.eu.feeder.erje.net!1.us.feeder.erje.net!feeder.erje.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Sun, 3 Sep 2023 09:22:26 -0700 (PDT)
In-Reply-To: <2611ee43-5cd8-4419-a1cc-11fd3873da2fn@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=83.11.214.94; posting-account=MMDGXwoAAADfMWi5ThEatt5B2ixmi_hp
NNTP-Posting-Host: 83.11.214.94
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> <fce859ce-cdde-4acb-9f3f-79f9729a85f8n@googlegroups.com> <1d9625c0-dcaf-46f0-bee1-21c8f14e47b6n@googlegroups.com> <2611ee43-5cd8-4419-a1cc-11fd3873da2fn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <969b62b0-1022-40e5-a732-9879100d659bn@googlegroups.com>
Subject: Re: Data + 14 dni roboczych
From: Maciej Franciszkowski <macfrane@gmail.com>
Injection-Date: Sun, 03 Sep 2023 16:22:27 +0000
X-Received-Bytes: 2047
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message