Liczenie dni

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

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by k1618740 Wed, 19 Feb 2020 07:41

#137682

Author: k1618740
Date: Wed, 19 Feb 2020 07:41

8 lines
1385 bytes

Cześć
Potrzebuję, aby baza zwracała dni na zasadzie:
Od jutra do 40dni wstecz, lecz aby nie były zwracane weekendy.
Chciałbym wrzucić to do kwerendy w pole kryteria.
Stworzyłem jak poniżej, lecz tutaj niestety liczy wszystkie dni.
Da się coś takiego?

<=Date()+"1" And >Date()-"40"

Re: Liczenie dni

#137683

Author: BraZby
Date: Wed, 19 Feb 2020 09:22

36 lines
1863 bytes

W dniu 2020-02-19 o 08:41, k1618740@gmail.com pisze:
> Cześć
> Potrzebuję, aby baza zwracała dni na zasadzie:
> Od jutra do 40dni wstecz, lecz aby nie były zwracane weekendy.
> Chciałbym wrzucić to do kwerendy w pole kryteria.
> Stworzyłem jak poniżej, lecz tutaj niestety liczy wszystkie dni.
> Da się coś takiego?
> 
> <=Date()+"1" And >Date()-"40"
> 

Może coś takiego:

Function DniRobocze() As Integer

Dim dtStart As Date
Dim dtEnd As Date

dtStart = Date - 40 '+ 1
dtEnd = Date + 1

   Do While dtStart <= dtEnd
     ' tydzień zaczyna się od poniedziałku
     If Weekday(dtStart, vbMonday) < 6 Then
       DniRobocze = DniRobocze + 1
     End If
     dtStart = dtStart + 1 'DateAdd("d", 1, dtStart)
   Loop

End Function

-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads