Article View: pl.comp.bazy-danych.msaccess
Article #137843Re: Data + 14 dni roboczych
From: Maciej Franciszkowski
Date: Sat, 02 Sep 2023 08:16
Date: Sat, 02 Sep 2023 08:16
35 lines
2644 bytes
2644 bytes
piątek, 1 września 2023 o 21:28:40 UTC+2 Maciej Franciszkowski napisał(a):
> 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
>
?
Function DateAddWD14(DataP As Date) As Date
Dim DataK As Date
Dim i As Integer
If Not IsDate(DataP) Then Exit Function
DataK = DataP
i = 0
Do Until i = 14
If (Weekday(DataK) <> 7 And Weekday(DataK) <> 1 And (DCount("*", "DatySwiat", "[DataSw] =#" & DataK & "#") = 0)) Then
i = i + 1
End If
DataK = DateAdd("d", 1, DataK)
Loop
DateAddWD14 = DataK
End Function
@Phantom czy DCount poprawnie działa u ciebie? U mnie jest błąd formatu daty w polu DataK.
MF
Technical Details
Message-ID:
<1d9625c0-dcaf-46f0-bee1-21c8f14e47b6n@googlegroups.com>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!1.us.feeder.erje.net!feeder.erje.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer02.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-mailReferences:
<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>Show Full Headers
Complete Article Headers
X-Received: by 2002:a05:6214:4c07:b0:64a:24a4:3b9b with SMTP id qh7-20020a0562144c0700b0064a24a43b9bmr94467qvb.13.1693642589086; Sat, 02 Sep 2023 01:16:29 -0700 (PDT) X-Received: by 2002:a25:908c:0:b0:d2c:649:f848 with SMTP id t12-20020a25908c000000b00d2c0649f848mr145322ybl.1.1693642588886; Sat, 02 Sep 2023 01:16:28 -0700 (PDT) Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!1.us.feeder.erje.net!feeder.erje.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer02.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: Sat, 2 Sep 2023 01:16:28 -0700 (PDT) In-Reply-To: <fce859ce-cdde-4acb-9f3f-79f9729a85f8n@googlegroups.com> Injection-Info: google-groups.googlegroups.com; posting-host=83.11.214.94; posting-account=7jb3mgoAAAByT2K-Cl2cB8m9Ft1phpZT 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> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <1d9625c0-dcaf-46f0-bee1-21c8f14e47b6n@googlegroups.com> Subject: Re: Data + 14 dni roboczych From: Maciej Franciszkowski <fwoda7@gmail.com> Injection-Date: Sat, 02 Sep 2023 08:16:29 +0000 X-Received-Bytes: 2594 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit