zeitraum Berechnen

Question

Hallo,

ich habe schwierigkeiten beim zeitraum berechnen.
Könnt Ihr mir bitte weiterhelfen.

Bitte nur in VBA!

Bsp. 1:
Zelle A1: 25.07.2014
Zelle A2: 01.08.2014

Zelle A3: Ausgabe: Monate: 0, Tage: 7


Bsp. 2:
Zelle A1: 01.08.2014
Zelle A2: 01.11.2014

Zelle A3: Ausgabe: Monate: 3, Tage: 0


Bsp. 3:
Zelle A1: 25.07.2014
Zelle A2: 15.12.2014

Zelle A3: Ausgabe: Monate: 4, Tage: 20

So möchte ich das haben. Wer kann so was in VbScript schreiben?

Vielen Lieben Dank und einen schönen Tag noch


Gruß, Jessi

Answer 1

Perfekt, Danke Rainer!

Answer 2

Hallo Rainer,

ich habe ein Problem gefunden bei deinem Code.

Wenn ich

28.07.2014
18.06.2015

eingeben, bekomme ich „Monate:-2 Tage 21“

Richtig ist: 10 Monate und 21 Tage

Ich brauche nur in Monaten und Tagen nicht in Jahren!
Kannst du bitte noch mal schauen.

Vielen Dank

Gruß, Jessi

Answer 3

Hallo Jessi,

hatte auf die Schnelle nur Deine 3 Zeiträume getestet und nun auch festgestellt, dass es noch mehrere Fehlrechnungen gibt.
Werde mir mal eine ganz andere Logik überlegen, habe aber leider in den nächsten Tagen keine Zeit dazu.

Vielleicht hast Du so viel Geduld.

Gruß
Rainer

Answer 4

Hallo Jessi,

Teste mal folgendes, bei mir klappt's momentan super.

Monate = DateDiff("m", dt1, CDate("1." & Month(dt2) & "." & Year(dt2)) - IIf(Day(dt1) > Day(dt2), 1, 0))
Resttage = DateDiff("d", CDate(Day(dt1) & "." & Month(dt2) - IIf(Day(dt1) > Day(dt2), 1, 0) & "." & Year(dt2)), dt2)

dt1 ist das Startdatum und dt2 das Enddatum

Gruß Mr. K.