Veröffentlicht 19. Oktober 200519 j 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
19. Oktober 200519 j 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]
19. Oktober 200519 j Autor 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!
19. Oktober 200519 j 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.
Erstelle ein Konto oder melde dich an, um einen Kommentar zu schreiben.