Zum Inhalt springen

Empfohlene Beiträge

Geschrieben

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

Geschrieben

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]

Geschrieben

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!

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.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...