McSaesch Geschrieben 19. Oktober 2005 Geschrieben 19. Oktober 2005 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 Zitieren
Klotzkopp Geschrieben 19. Oktober 2005 Geschrieben 19. Oktober 2005 Do While em < endeGrößer, nicht kleiner. Zitieren
McSaesch Geschrieben 19. Oktober 2005 Autor Geschrieben 19. Oktober 2005 Nee dann gehts garnicht! Zitieren
Klotzkopp Geschrieben 19. Oktober 2005 Geschrieben 19. Oktober 2005 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] Zitieren
McSaesch Geschrieben 19. Oktober 2005 Autor Geschrieben 19. Oktober 2005 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! Zitieren
McSaesch Geschrieben 19. Oktober 2005 Autor Geschrieben 19. Oktober 2005 Des Rätzels Lösung Ich hab einfach beide mal als Date deklariert Zitieren
Klotzkopp Geschrieben 19. Oktober 2005 Geschrieben 19. Oktober 2005 Des Rätzels LösungRä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. Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.