VBA Datumsdifferenz, wieviele Tage in den Monaten.
08.11.2015 20:20:55
Hermann
ich habe in einer Excelzelle z.B. A1 (Datum von) und in einer anderen Zelle
B1 (Datum bis) zwei Datumsangaben stehen. Nun möchte ich für ein komplettes Jahr 1000 Punkte vergeben. (1.1.20_ _ - 31.12.20_ _ ). Das Datum ist nicht Jahres-übergreifend.
Für einen kompletten Monat, der sich in der Datumsdifferenz befindet gibt es unterschiedlich viele Punkte. Siehe Bild.
Mit Formeln habe ich das schon hinbekommen. Jetzt möchte ich dies in VBA so umsetzen,
daß mir die erreichten Punktezahl, wenn ich in den Zellen (A1) u.(B1) das Datum geschrieben habe, in C1 angezeigt werden.
Mein Ansatz war jetzt mit 12 Konstanten zu arbeiten. constjan=31, constmrz=31,usw.
Die Tage im Feb. wollte ich mit
TageimFeb = DateSerial(y, mFeb + 1, 1) - DateSerial(y, mFeb, 1)berechnen.
Beispiel: Die MonatspunktezahlJan(170) : constJan(31) x die errechneten Januartage aus der Datumsdifferenz.
Next MonatspunktezahlFeb(150):constFeb(28)x die errechneten Februartage aus der Datumsdifferenz.
Next
Die Summe ergibt dann meine Jahrespunktezahl.
Hierzu reichen meine VBA-Kenntnisse leider noch nicht.
Vielleicht kann mir von Euch jemand helfen.
Gruß, Hermann