Hallo,
ich kenne keine Funktion.
Folgende Lösung zählt alle vorkommen in einem Zeitraum:
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)
Dim iDatCount As Integer
Dim datDate As Date, datTMP As Date
datDate = ErstesDatum
Do While datDate <= ZweitesDatum
datTMP = DateSerial(Year(datDate), Month(datDate), 13)
If datTMP >= ErstesDatum And datTMP <= ZweitesDatum And Weekday(datTMP, vbUseSystemDayOfWeek) = 5 Then
iDatCount = iDatCount + 1
End If
datDate = DateAdd("m", 1, datDate)
Loop
Ausgabefeld = iDatCount
End Sub
VG, BigBen
|