In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Tipp 1185: Bewegliche Feiertage und Arbeitstage eines Monats
Autor: manu86
Tipp anzeigenDatum: 29.04.09 10:00
Hallo dieser Tipp mit den Feiertagen ist super !!! Aber mir zeigt er einen Fehler an und zwar: Fehler 2 Der +-Operator ist für die Typen "Date" und "Integer" nicht definiert. bei den Feiertagen berechnen: ' Karfreitag Feiertage(1) = (Ostern(Jahr)) - 2 Wie kann ich diesen Fehler beheben????

Re: Bewegliche Feiertage und Arbeitstage eines Monats
Autor: Dieter (Moderator)
Datum: 29.04.09 15:21
Das Beispiel ist für VB5/6. Ich vermute jedoch, dass Du es unter VB2005/2008 verwenden willst. _________________________ Professionelle Entwicklerkomponenten www.tools4vb.de

Re: Bewegliche Feiertage und Arbeitstage eines Monats
Autor: hr40
Datum: 29.04.09 23:14
Hallo, bin seit langer Zeit mal wieder hier im VB-Archiv und war erstaunt, das es immer noch Leutchen gibt, die meine inzwischen schon etwas angestaubten Funktionen nutzen. Dieter har Recht: Der Code wurde seinerzeit für VB5/6 erstellt, aber es gibt bereits eine Umsetzung für .NET http://www.vbarchiv.net/tipps/details.php?id=1206 Gruß Hermann Röttger Beitrag wurde zuletzt am 29.04.09 um 23:15:26 editiert.

Re: Bewegliche Feiertage und Arbeitstage eines Monats
Autor: driver57
Datum: 21.03.12 14:12
Hallo, genau das habe ich gesucht. Beim ausprobieren habe ich allerdings einen ganz kleinen Fehler entdeckt. Und zwar in dem folgenden Code-Abschnitt: If Monat = 2 Then ' Speziallfall: Februar (auf Schaltjahr prüfen) Tage = Day(DateAdd("d", -1, X)) End If Bei der Ermittlung von "Tage" bezieht sich DateAdd auf den Monat vor dem Februar, was natürlich zu einem falschen Ergebnis (31) führt. nach der Änderung auf... Tage = Day(DateAdd("d", -1, "1.3." & Right(X, 4))) funktioniert alles hervorragend Vielen Dank nochmal für den Code!!!

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen