Start Hilfe und Support Microsoft Office EXCEL 2010 VBA: Anzahl Tage im Monat bestimmen

EXCEL 2010 VBA: Anzahl Tage im Monat bestimmen

E-Mail PDF

Die hier beschriebene Funktion AnzahlTageImMonat ermittelt die Monatslänge in Tagen

Aufgabenstellung

Wenn man mit Daums rechnet, z.B. in der Zinsrechnung, benötigt man oft die Länge eines Monats in Tagen. Die hier beschriebene Funktion liefert das gewünschte Ergebnis. Übergeben wird ein beliebiges Datum, zurückgegeben wird die Anzahl der Tage in dem entsprechenden Monat. Dabei wird auf die hier schon vorgestellte Funktion Monatsletzer zurückgegriffen.

VBA-Code

Monatsletzter

Function Monatsletzter(ByVal vDatum As Date) As Date

  ' Diese Funktion wird erläutert in dem Artikel EXCEL 2010 VBA: Den letzten Tag des Monats bestimmen.

  Monatsletzter = DateSerial(Year(vDatum), Month(vDatum) + 1, 0)
End Function

AnzahlTageImMonat

Function AnzahlTageImMonat(ByVal vDatum As Date) As Long

  ' In der Variablen vDatum wird das Datum übergeben zu dem die Länge des Monats
  ' bestimmt wird. Dazu wird der letzte Tag des Monats bestimmt. Über die VBA-
  ' Funktion Day() wird aus dem übergebenen Datum der Tag extrahiert. Da der Tag
  ' auf dem Monatsultimo steht, entspricht dieser Tag der länge des Monats.

  AnzahlTageImMonat = Day(Monatsletzter(vDatum))
End Function

Download

Das Beispiel können Sie sich hier herunterladen.


Zuletzt aktualisiert am Samstag, den 05. April 2014 um 20:05 Uhr  


Machen Sie mit

Sie haben ein schönes Bild gemacht von Happerschoß, das auch andere interessieren könnte. Dann sollte es auf dieser Internetseite von Happerschoß erscheinen. Bitte melden Sie sich direkt über die Kontaktseite oder natürlich auch unter Info@happerschoss.net.