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@gmail.c Tue, 18 Feb 2020 23:41

#134012

Author: k1618740@gmail.c
Date: Tue, 18 Feb 2020 23:41

7 lines
338 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

#134013

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

35 lines
799 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?
>
> <Úte()+"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