Feiertage berechnen und berücksichtigen - Teil 2

Methoden zum Erfassen von Feiertagen

Wenn Sie dem Benutzer der Anwendung, der die Klasse verwendet, die Möglichkeit geben möchten, feste Feiertage über ein Formular oder eine UserForm zu erfassen, sollten Sie dazu schon in der Klasse eine Methode vorsehen, die an die Textdatei eine Zeile mit neuen Werten anhängt. Diese Methode soll hier FeierTagSchreiben lauten (Listing 4). Ihr übergeben Sie die zu schreibenden Werte für die einzelne Spalte sowie den Dateinamen und den Pfad der Textdatei. Die Methode schreibt diese Daten dann in die Textdatei.

Public Sub FeierTagSchreiben(strDateiname As String, _
bytTag As Byte, bytMonat As Byte, strName As String, strLand As String)
Dim lngDatei As Long
Dim strFehler As String
Dim strZeile As String
Dim varZeile As Variant
Dim lngZeile As Long
Dim bytFehler As Byte
bytFehler = 0
On Error GoTo FEHLER
lngDatei = FreeFile()
Open strDateiname For Append As #lngDatei ' Datei öffnen.
'Textdatei öffnen und Daten schreiben
Print #lngDatei, bytTag & ";" & bytMonat & ";" & strName & ";" & strLand
Close #lngDatei
Exit Sub
FEHLER:
bytFehler = bytFehler + 1
If Err.Number = 52 Then
strFehler = "Die Datei " & strDateiname & _
" ist nicht vorhanden oder kann nicht geöffnet werden!"
ElseIf Err.Number = 55 Then
If bytFehler < 5 Then
Resume
Else
strFehler = "In die Datei konnte nicht geschrieben werden!"
End If
End If
If strFehler > "" Then
On Error Resume Next
MsgBox strFehler
Close #lngDatei
Exit Sub
End If
End Sub

Dazu wird die Datei zunächst mit der Open- Anweisung zum Anhängen von Daten (For Append) geöffnet. Die übergebenen Daten werden nun mit der Print-Anweisung ausgegeben, danach wird die Datei mit Close geschlossen.