VB Classic VB.NET ADO.NET VBA C# |
 |
Mit diesen Code, können Sie herausfinden, wann Freitag der 13te ist. Erstellen Sie ein neues Projekt und platzieren auf die Form einen Button, sowie ein ListBox-Contorl. Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim jetzt As Date = Date.Now ' ListBox löschen ListBox1.Items.Clear() ' Prüfe die nächsten Tage... For i As Integer = 0 To 5000 ' Prüfe ob Freitag der 13te.... If jetzt.DayOfWeek = DayOfWeek.Friday And jetzt.Day = 13 Then Me.ListBox1.Items.Add(jetzt.ToLongDateString) End If jetzt = jetzt.AddDays(1) Next End Sub Dieser Tipp wurde bereits 5.640 mal aufgerufen.
 Anzeige
 Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6(einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevPopUp 2.0  Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Tipp des Monats November 2025Heinz Prelle Datei-Mehrfachauswahl an eine ListBox übergeben Dieser Tipp zeigt, wie Sie über den Windows-CommonDialog eine Mehrfach-Dateiauswal realisieren... TOP Entwickler-Paket  TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR... |
||||||||||||||||
|
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |
|||||||||||||||||
Freitag der 13te - Datum herausfiltern
Voriger Tipp
Druckansicht