Re: Data + 14 dni roboczych

Newsgroups	pl.comp.bazy-danych.msaccess
Date	2023-09-01 12:28 -0700
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>
Message-ID	<fce859ce-cdde-4acb-9f3f-79f9729a85f8n@googlegroups.com> (permalink)
Subject	Re: Data + 14 dni roboczych
From	Maciej Franciszkowski <fwoda7@gmail.com>

Show all headers | View raw

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

Back to pl.comp.bazy-danych.msaccess | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Data + 14 dni roboczych Phantom <biuro.tekaoprogramowanie@gmail.com> - 2023-08-31 03:43 -0700
  Re: Data + 14 dni roboczych Maciej Franciszkowski <fwoda7@gmail.com> - 2023-09-01 08:35 -0700
    Re: Data + 14 dni roboczych Maciej Franciszkowski <fwoda7@gmail.com> - 2023-09-01 11:12 -0700
      Re: Data + 14 dni roboczych Maciej Franciszkowski <fwoda7@gmail.com> - 2023-09-01 12:04 -0700
        Re: Data + 14 dni roboczych Maciej Franciszkowski <fwoda7@gmail.com> - 2023-09-01 12:28 -0700
          Re: Data + 14 dni roboczych Maciej Franciszkowski <fwoda7@gmail.com> - 2023-09-02 01:16 -0700
            Re: Data + 14 dni roboczych Maciej Franciszkowski <fwoda7@gmail.com> - 2023-09-03 06:41 -0700
              Re: Data + 14 dni roboczych Maciej Franciszkowski <macfrane@gmail.com> - 2023-09-03 09:22 -0700

csiph-web