'Feiertage überprüfen
Dim TempDayStart As Long
Dim Treffer As Boolean = True
Do While Treffer = True
Treffer = False
DateTime.DateFormat = "dd.MM.yyyy c"
MONATSANFANG = DateTime.Date(FirstDayOfMonth)
MONATSENDE = DateTime.Date(LastDayOfMonth)
TempDay = FirstDayOfMonth
If MONATSANFANG.SubString(11) = "Sa" Then
FirstDayOfMonth = DateTime.Add(TempDay,0,0,2)
MONATSANFANG = DateTime.Date(FirstDayOfMonth)
Treffer = True
Else
If MONATSANFANG.SubString(11) = "So" Then
FirstDayOfMonth = DateTime.Add(TempDay,0,0,1)
MONATSANFANG = DateTime.Date(FirstDayOfMonth)
Treffer = True
End If
End If
Dim Erstes_Datum, Datums_Veraenderung As String
Dim Jahreszahl As Int
Jahreszahl = MONATSANFANG.SubString2(6, 10)
Erstes_Datum = MONATSANFANG.SubString2(0,10)
Datums_Veraenderung = "voraus"
FeiertageBerechnen(Jahreszahl, Erstes_Datum, Datums_Veraenderung)
If Ausgabe_Zahl <> 0 Then
FirstDayOfMonth = Ausgabe_Zahl
Datum_zum_sortieren_next_Transaktion = Ausgabe_Zahl
Label_Datum_next_Transaktion = Ausgabe_Zeile
Treffer = True
End If
TempDayStart = Datum_zum_sortieren_next_Transaktion
Loop