Re: Liczenie dni

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

Article #137683

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

#137683

From: 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

Technical Details

Message-ID: <5e4cfe69$0$517$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!3.eu.feeder.erje.net!feeder.erje.net!border1.nntp.ams1.giganews.com!border2.nntp.ams1.giganews.com!nntp.giganews.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

References: <f254d6c6-73a0-489b-8b47-6fd51ac0b521@googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!3.eu.feeder.erje.net!feeder.erje.net!border1.nntp.ams1.giganews.com!border2.nntp.ams1.giganews.com!nntp.giganews.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
Subject: Re: Liczenie dni
Newsgroups: pl.comp.bazy-danych.msaccess
References: <f254d6c6-73a0-489b-8b47-6fd51ac0b521@googlegroups.com>
From: BraZby <byle@co.pl>
Date: Wed, 19 Feb 2020 10:22:47 +0100
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:68.0) Gecko/20100101 Thunderbird/68.5.0
MIME-Version: 1.0
In-Reply-To: <f254d6c6-73a0-489b-8b47-6fd51ac0b521@googlegroups.com>
Lines: 36
Message-ID: <5e4cfe69$0$517$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 83.26.227.225
X-Trace: 1582104169 unt-rea-b-01.news.neostrada.pl 517 83.26.227.225:13690
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message