Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Monatsende in Access feststellen

1,239 views
Skip to first unread message

Peter Jentzsch

unread,
Jun 18, 2003, 7:31:22 AM6/18/03
to
Hallo, kann mir jemand einen Tip geben, wie Ich in VBA
(Ac2000) feststellen kann, wieviel Tage der aktuelle (bzw.
nächste) Monat hat?

Danke
Peter

Karl Donaubauer

unread,
Jun 18, 2003, 7:39:46 AM6/18/03
to
Peter Jentzsch schrieb:

>Hallo, kann mir jemand einen Tip geben, wie Ich in VBA
>(Ac2000) feststellen kann, wieviel Tage der aktuelle (bzw.
>nächste) Monat hat?

Day(Über den passenden Ausdruck aus Access-FAQ 2.8)

--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
Datenbankprofis: http://www.dbdev.org

Winfried Kaiser

unread,
Jun 18, 2003, 7:57:47 AM6/18/03
to
Aktueller Monat

AnzahlTage=Day(Dateserial(Year(Now),Month(Now)+1,0))

Nächster Monat

AnzahlTage=Day(Dateserial(Year(Now),Month(Now)+2,0))

--
Dipl.-Ing.(TH) Winfried Kaiser
Fortune Systems GmbH & Co.
D-24975 Husby
Germany
"Karl Donaubauer" <ad...@donkarl.com> schrieb im Newsbeitrag
news:bcpj1d$l2513$1...@ID-46617.news.dfncis.de...

Peter Jentzsch

unread,
Jun 18, 2003, 8:04:12 AM6/18/03
to
Hallo Karl,
Ich benötige eine Funktion, mit dem Ich herausziehen kann,
wieviel Tage der aktuelle Monat hat (also AnzTage(Month
(date())=31) o.ä.

Kannst du mir sagen, wie Ich dein FAQ-Beispiel:
DatSeriell(Jahr(Datum());Monat(Datum())+1;0)
in VBA schreibe?

Danke
Peter
>-----Originalnachricht-----

>.
>

Karl Donaubauer

unread,
Jun 18, 2003, 10:49:41 AM6/18/03
to
Peter Jentzsch schrieb:
> Karl Donaubauer schrieb:
...

>> Day(Über den passenden Ausdruck aus Access-FAQ 2.8)
...

> Ich benötige eine Funktion, mit dem Ich herausziehen kann,
> wieviel Tage der aktuelle Monat hat (also AnzTage(Month
> (date())=31) o.ä.
>
> Kannst du mir sagen, wie Ich dein FAQ-Beispiel:
> DatSeriell(Jahr(Datum());Monat(Datum())+1;0)
> in VBA schreibe?

Day(DateSerial(Year(Date),Month(Date)+1,0))

0 new messages