das geht auch einfacher:
Anteil = DateDiff("d", DATUM_VON, DATUM_BIS, vbMonday, vbFirstJan1) / Day(DateSerial(Year(Date), Month(Date) + 1, 0))
____________________________________
Nein, ich bin nicht die Signatur, ich putz hier nur.
http://www.chili-it.at
|