vb@rchiv · Tipps & Tricks · Freitag der 13te

Rubrik: Datum/Zeit und Timer · Datums- und Zeit-Funktionen | VB-Versionen: VB2005 - VB2015

10.11.15

Freitag der 13te - Datum herausfiltern Mit diesen Code, können Sie herausfinden, wann Freitag der 13te ist.
Autor: Samir Ben Kheder	Bewertung:	Views: 5.080
www.bk-software.de	System: WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

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.