Feiertage berechnen und berücksichtigen - Teil 2

Erzeugen des Objekts

Das Objekt erzeugen Sie wahlweise mit der CreateObject-Funktion oder wie im Beispielcode mit der New-Anweisung. Als Name der Klasse geben Sie den Namen des Moduls an, in dem sich die Klasse befindet. Danach können Sie die Methoden der Klasse aufrufen, wie Sie dies bei anderen Objekten auch tun. Im Beispiel wird der Aufruf einiger Methoden gezeigt.

Besonderheiten gibt es nur bei wenigen. Beispielsweise gibt die Methode IstFeiertag einen booleschen Wert zurück, an dem Sie erkennen können, ob es sich bei dem angegebenen Datum um einen berechneten Feiertag handelt. Wenn Sie auch den Namen des Feiertags ermitteln wollen, müssen Sie dazu eine Variable des Typs String (hier strName ) deklarieren und ihr eine leere Zeichenfolge zuweisen. Diese übergeben Sie dann als zweiten Parameter an die Methode. Nach Aufruf der Methode enthält die Variable den Namen des Feiertags, sofern es sich um einen Feiertag handelt.

Die Methode BuildPath können Sie verwenden, um Dateiname und Pfadangabe zu einem gültigen Pfad zusammenzusetzen. Sie ergänzt bei Bedarf fehlende Pfadtrennzeichen und löscht doppelte. Als ersten Parameter übergeben Sie dazu den Pfad und dann den Dateinamen.

Ganz wichtig ist, dass Sie am Ende das Objekt wieder löschen, indem Sie der Objektvariablen den Wert Nothing zuweisen.

Verwenden der Klasse in Word und Excel

Damit Sie die Klasse auch in Word und Excel verwenden können, wird der Datenbankpfad in der Methode getPfad nur zurückgegeben, wenn es sich bei der VBA-Hostanwendung um Access handelt. Für Excel und Word gibt die Funktion entsprechend dem Pfad der Arbeitsmappe oder des Word-Dokuments zurück, in dem der Code ausgeführt wird. Selbstverständlich können Sie die Method auch so erweitern, dass sie auch in PowerPoint, Publisher, Outlook oder Corel Draw funktioniert.