Datumsdifferenz

Forumthread: Datumsdifferenz

Datumsdifferenz

15.05.2003 21: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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Datumsdifferenz

15.05.2003 22:03:44

Holger Levetzow
Re: Datumsdifferenz

15.05.2003 22:08:40

Hans
Re: Datumsdifferenz

15.05.2003 22:34:08

Holger Levetzow
Re: Datumsdifferenz

15.05.2003 22:40:11

Holger Levetzow
Re: Datumsdifferenz

15.05.2003 23:06:33

Holger Levetzow
Re: Datumsdifferenz

15.05.2003 23:26:48

Hans

Re: Datumsdifferenz

15.05.2003 22:03:44

Holger Levetzow

Re: Datumsdifferenz

15.05.2003 22:08:40

Hans

Danke,
aber kannst Du mir auch helfen das in s vba umzusetzen ?

Gruss Hans

Re: Datumsdifferenz

15.05.2003 22: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

Re: Datumsdifferenz

15.05.2003 22: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

Re: Datumsdifferenz

15.05.2003 23: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

Re: Datumsdifferenz

15.05.2003 23: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

Forumthread: Datumsdifferenz

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread