Monatsanteil errechnen in VBA/ACCESS

[Hussl]

Hi, aus der Access-Hilfe:

DateSerial()
...
Das folgende Beispiel verwendet numerische Ausdrücke anstelle von absoluten Datumszahlen. Die DateSerial-Funktion gibt in diesem Fall das Datum für den Tag vor dem ersten Tag (1 - 1) des Monats zurück, der zwei Monate vor August (8 - 2) liegt, und zwar 10 Jahre vor dem Jahr 1990 (1990 - 10). Das Ergebnis ist der 31. Mai 1980.

DateSerial(1990 - 10, 8 - 2, 1 - 1)
...

Das heißt in unserem Fall, dass wir das aktuelle Jahr, das nächste Monat, und den Tag vor dem ersten des (angegebenen) nächsten Monats bekommen. Sprich den letzten Tag des aktuellen Monats.

Wenn ich nun den letzten Tag des Monats Juli haben will, dann muss die Syntax so ausschauen:

DateSerial(2004, 9, 1-1) (Da nach Adam Riese 1-1 gleich 0 ist, kann man auch 0 schreiben, aber 1-1 ist sicher einfacher nachzuvollziehen)
Aus dieser Funktion bekomme ich das Ergebnis 31.08.2004. Jetzt noch ein Day("31.08.2004") und ich hab die gewünschte Zahl 31!

Ist alles ein bissl kompliziert, aber wenn man das mal durchschaut, dann gehts schon