Hallo zusammen,

ich muss mich wieder an euch wenden, aber ich lerne dazu ;)

Ich hab folgendes Problem undzwar möchte ich durchzählen, in einem Datumsbereich, wie oft ein Freitag vorkommt mit dem Datum 13.##.####

Also wie oft ein Freitag der 13te vorkommt.

    
    Dim Ausgabefeld, Eingabe, Eingabe2 As String
    Dim ErstesDatum, ZweitesDatum As Date

Private Sub btnAbfragen_Click(sender As Object, e As EventArgs) Handles btnAbfragen.Click

        Ausgabefeld = txtAnzahl.Text
        Eingabe = InputBox("Enter the first date, please.")
        Eingabe2 = InputBox("Enter the second date, please.")
        ZweitesDatum = CDate(Eingabe2)
        ErstesDatum = CDate(Eingabe)





    End Sub

Gibts da eine Funktion die ich nochnicht kenne?

Bitte um Hilfe.

Danke

Mit freundlichen Grüßen,

Canobil