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
|