| Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB4, VB5, VB6 | 05.07.03 |
 Anzahl Tage im Monat ermitteln IIMit 1 Zeile Quellcode, die Anzahl Tage pro Monat ermitteln | ||
Autor:  Bernd Schneider | Bewertung:   | Views: 26.228 |
| ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 |  Beispielprojekt auf CD |
Statt der Funktion 
Anzahl der Tage eines Monats, um die Anzahl Tage im Monat zu ermitteln, tut es auch einen Einzeiler:
Public Function DaysOfMonth(ByVal vDate As Date) As Byte DaysOfMonth = DateDiff("d", DateSerial(Year(vDate), _ Month(vDate), 1), DateAdd("m", 1, _ DateSerial(Year(vDate), Month(vDate), 1))) End Function
Nachteil dieser Funktion: Die Berechnung der Anzahl Tage im Monat dauert etwas länger, was jedoch vernachlässigbar ist, wenn man die Funktion nicht gerade mehrere 1000 mal hintereinander aufrufen muss.
