Probleme bei Monatsübergang
06.12.2017 09:00:23
Burak
da mir hier echt immer super und schnell geholfen wird, wende ich mich hier gerne direkt an euch wenn ich es selbst nich hinbekomme.
Also folgendes:
startdatum = Me.TextBox1.Value
enddatum = Me.TextBox2.Value
hilfsvariablestart = Left(startdatum, 5)
hilfsvariableend = Left(enddatum, 5)
startjahr = Right(startdatum, 4)
startmonat = Right(hilfsvariablestart, 2)
starttag = Left(startdatum, 2)
endjahr = Right(enddatum, 4)
endmonat = Right(hilfsvariableend, 2)
endtag = Left(enddatum, 2)
startdatum2 = startjahr & startmonat & starttag
enddatum2 = endjahr & endmonat & endtag
tage = enddatum - startdatum
Im Eingabefenster wird ein startdatum und ein enddatum eingegeben.
Da dies im Datumsformat TT/MM/JJJJ ist und ich es als Textformat JJJJMMDD brauche extrahiere ich erst die Zahlen daraus und bilde daraus ein neues startdatum und enddatum (gekennzeichnet mit 2)
Für eine schleife, wo er jedes Datum vom Startdatum bis Enddatum verwendet
ermittle ich noch die Tage mittels enddatum - startdatum.
For i = tage To 0 Step -1
enddatum = enddatum - i
endjahr = Right(enddatum, 4)
endmonat = Right(hilfsvariableend, 2)
endtag = Left(enddatum, 2)
enddatum2 = endjahr & endmonat & endtag
Grundsätzlich funktioniert das bis auf den Fall wo es monatsübergreifen ist.
Beispiel:
Also wenn das startdatum der 25.11.2017 und das Enddatum der 05.12.2017 ist, ermittelt er zwar korrekt eine Differenz von 10 Tagen, aber wenn er in der Schleife das Enddatum 05.12.2017 die 10 tage abzieht landet er nicht bei 25.11.2017 sondern 25.12.2017.
10 Tage vom enddatum2 abziehen funktioniert nicht, da es erstens als Text formatiert ist und außerdem wenn es kein Datum ist er die Tage unter 0 nicht bei 30 sondern bei 99 anfangen würde.
Jmd ne Idee wo mein Denkfehler ist?
Freundliche Grüße
Burak Icel