Article View: pl.comp.lang.vbasic
Article #92254Re: VB calendar - dzien tygodnia
From: Jarek Mielcarek
Date: Fri, 21 Oct 2005 12:22
Date: Fri, 21 Oct 2005 12:22
21 lines
1409 bytes
1409 bytes
Roszu napisaล(a):
> Dzieki
>
> konkretnie mi chodzi o to zeby program zliczal mi dni robocze ( pon - pia )
> od daty dziesiejszej ( systemowej ) do 1 dnia aktualnego miesiaca.. Moze
> macie jakis pomysl na cos prostego a zarazem funkcjonalnego.
mowisz i masz:
Dim i As Integer, licznik As Integer, dzien As Integer
dzien=0
For i = 0 To Day(Date) - 1
dzien = Weekday(DateAdd("d", i, CDate(Year(Date) & "-" &
Month(Date) & "-1")), 1)
If dzien = vbSunday Or dzien = vbSaturday Then
licznik = licznik + 1
End If
Next i
MsgBox licznik
jaro
Technical Details
Message-ID:
<4358dd63$2@news.vogel.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.vogel.pl!not-for-mailReferences:
<dj7s7u$n42$1@news.onet.pl> <dja9td$t2n$1@news.onet.pl>Show Full Headers
Complete Article Headers
Date: Fri, 21 Oct 2005 14:22:27 +0200 From: Jarek Mielcarek <kreskowy@brak.mi.go2.pl> User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923) X-Accept-Language: pl, en-us, en MIME-Version: 1.0 Newsgroups: pl.comp.lang.vbasic Subject: Re: VB calendar - dzien tygodnia References: <dj7s7u$n42$1@news.onet.pl> <dja9td$t2n$1@news.onet.pl> In-Reply-To: <dja9td$t2n$1@news.onet.pl> NNTP-Posting-Host: 83.17.222.14 X-Original-NNTP-Posting-Host: 83.17.222.14 Message-ID: <4358dd63$2@news.vogel.pl> X-Trace: news.vogel.pl 1129897315 83.17.222.14 (21 Oct 2005 14:21:55 +0200) Lines: 23 X-Authenticated-User: jaro88 X-Complaints-To: Usenet@news.vogel.pl Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.vogel.pl!not-for-mail Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit