3
DateDiff liefert unteschiedliche Werte
Hallo alle zusammen,
habe hier ein merkwürdiges verhalten von Excel 2010 VBA
Ich möchte die differenz von zwei Datumswerten in Monaten ermittelt haben
im ersten Code wird ein falsches Ergebnis geliefert
aufstellung = Sheets("Vertrag").Cells(2, 12) ' 01.07.2014
erfassung = DateValue("08, 01, 2015")
Dat_dif = DateDiff("M", aufstellung, erfassung)
MsgBox Dat_dif 'liefert Ergebnis = 6
aufstellung = DateValue("7, 1, 14")
erfassung = DateValue("08, 01, 2015")
Dat_dif = DateDiff("M", aufstellung, erfassung)
MsgBox Dat_dif 'liefert Ergebnis = 12
kann sich hier jemand einen Reim drauf machen?
habe hier ein merkwürdiges verhalten von Excel 2010 VBA
Ich möchte die differenz von zwei Datumswerten in Monaten ermittelt haben
im ersten Code wird ein falsches Ergebnis geliefert
aufstellung = Sheets("Vertrag").Cells(2, 12) ' 01.07.2014
erfassung = DateValue("08, 01, 2015")
Dat_dif = DateDiff("M", aufstellung, erfassung)
MsgBox Dat_dif 'liefert Ergebnis = 6
aufstellung = DateValue("7, 1, 14")
erfassung = DateValue("08, 01, 2015")
Dat_dif = DateDiff("M", aufstellung, erfassung)
MsgBox Dat_dif 'liefert Ergebnis = 12
kann sich hier jemand einen Reim drauf machen?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 277847
Url: https://administrator.de/contentid/277847
Printed on: April 27, 2024 at 01:04 o'clock
3 Comments
Latest comment
Hi
Sollte
nicht
heißen ? Das wären deine fehlenden Monate
LG
Sollte
aufstellung = DateValue("7, 1, 14")
nicht
aufstellung = DateValue("1, 7, 14")
heißen ? Das wären deine fehlenden Monate
LG
es müsste aber eine differenz von 12 Monaten rauskommen
vom 01.07.14 bis 19.07.15
vom 01.07.14 bis 19.07.15
aber der Ansatz war sehr gut habe bei erfassung das Datum falsch geschrieben