Datum vergleichen

[McSaesch]

Ich habe eine Datum (heute) und ein Datum dass genau 1 Jahr früher ist. Nun will ich rückwärts alle Montage herraus finden.

Dim i As Integer

Dim heute As Date

Dim em As String

Private Sub UserForm_Activate()

heute = Date

ende = DateAdd("yyyy", -1, heute)

Do

heute = DateAdd("w", -1, heute) 'hier wird der letzte Montag berechnet

em = heute

Loop Until Weekday(heute) = vbMonday

Do While em < ende

ComboBox1.AddItem "Montag, der " & em

em = DateAdd("d", -7, em)

Loop

ComboBox1.ListIndex = 0

End Sub

Als letzten Montag zeigt er mir den 3.10.2005 und bricht dann ab. Wie kann ich nun das Datum richtig vergleichen damit er mir auch die restlichen Tage anzeigt??:eek

[Klotzkopp]

Do While em < ende

Größer, nicht kleiner.

[McSaesch]

Nee dann gehts garnicht!

[Klotzkopp]

Bei mir schon. Folgender Code, in einer .vbs-Datei, erzeugt eine schöne Folge von Messageboxen:

heute = Date

ende = DateAdd("yyyy", -1, heute)


Do

	heute = DateAdd("w", -1, heute) 'hier wird der letzte Montag berechnet

	em = heute

Loop Until Weekday(heute) = vbMonday


Do While em > ende

	msgbox em

	em = DateAdd("d", -7, em)

Loop[/code]

[McSaesch]

wieviele msgboxen??? 3? oder mehr?

Do While em > ende

ComboBox1.AddItem "Montag, der " & em

em = DateAdd("d", -7, em)

Loop

em = 17.10.2005 und ende hat 19.10.2004

Wenn ich es so hab dann geht er nicht in die schleife!

[McSaesch]

Des Rätzels Lösung

Ich hab einfach beide mal als Date deklariert

[Klotzkopp]

Des Rätzels Lösung

Rätsel

Ich hab einfach beide mal als Date deklariert

Stimmt. Ich hatte nicht gesehen, dass em bei dir ein String war. Darum gings auch mit VBScript, das hat ja keine Typen.