Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsdifferenz

Forumthread: Datumsdifferenz

Datumsdifferenz
15.05.2003 19:38:50
Hans
Hallo liebe Excelgemeinde,
Ich hoffe Ihr könnt mir helfen. Folgendes Problem:

C2 : ="Du bist heute" & DATEDIF(A1;HEUTE();"y") &" Jahre "&DATEDIF(A1;HEUTE();"ym")& " Monate "&WENN(TAG(A1)<=TAG(HEUTE());TAG(HEUTE())-TAG(A1);TAG(HEUTE())+TAG(DATUM(JAHR(A1);MONAT(A1)+1;1)-1)-TAG(A1))&" und Tage alt"

Soweit so gut, aber wie bringe ich hier noch die Wochen rein und was noch wichtiger ist, wie krig ich das als makro.

Danke im Vorraus Hans

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datumsdifferenz
15.05.2003 20:03:44
Holger Levetzow
Re: Datumsdifferenz
15.05.2003 20:08:40
Hans
Danke,
aber kannst Du mir auch helfen das in s vba umzusetzen ?

Gruss Hans

Re: Datumsdifferenz
15.05.2003 20:34:08
Holger Levetzow
versuche mal folgendes:

Sub test()
datum = Range("A1")
jahr = DateDiff("yyyy", datum, Date) - 1
datum1 = DateSerial(Year(datum) + jahr, Month(datum), Day(datum))
monat = DateDiff("m", datum1, Date)
datum2 = DateSerial(Year(datum1), Month(datum) + monat, Day(datum))
wochen = DateDiff("d", datum2, Date) \ 7
tage = DateDiff("d", datum2, Date) - wochen * 7
End Sub

Du solltest aber testen, ob das mit dem Jahr immer so ist.

Holger

Anzeige
Re: Datumsdifferenz
15.05.2003 20:40:11
Holger Levetzow
ich habe es schnell gemacht und die erwartete Ausnahme gefunden. So müsste es immer klappen.

Sub test()
datum = Range("A1")
jahr = DateDiff("yyyy", datum, Date)
If DateSerial(Year(Date), Month(datum), Day(datum)) > Date Then jahr = jahr - 1
datum1 = DateSerial(Year(datum) + jahr, Month(datum), Day(datum))
monat = DateDiff("m", datum1, Date)
datum2 = DateSerial(Year(datum1), Month(datum) + monat, Day(datum))
wochen = DateDiff("d", datum2, Date) \ 7
Tage = DateDiff("d", datum2, Date) - wochen * 7
End Sub

Holger

Anzeige
Re: Datumsdifferenz
15.05.2003 21:06:33
Holger Levetzow
eine Ausnahme bestand noch. ich habe sie eingearbeitet.


datum = Range("A1")
jahr = DateDiff("yyyy", datum, Date)
If DateSerial(Year(Date), Month(datum), Day(datum)) > Date Then jahr = jahr - 1
datum1 = DateSerial(Year(datum) + jahr, Month(datum), Day(datum))
monat = DateDiff("m", datum1, Date)
If Day(datum1) > Day(Date) Then monat = monat - 1
datum2 = DateSerial(Year(datum1), Month(datum) + monat, Day(datum))
wochen = DateDiff("d", datum2, Date) \ 7
Tage = DateDiff("d", datum2, Date) - wochen * 7

Anzeige
Re: Datumsdifferenz
15.05.2003 21:26:48
Hans
Hallo Holger,

hat ein bischen länger gedauert aber besser später als nie.

Also vielen Dank echt super von Dir

Hans

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige