Office: (Office 2016) Feld im Formular formatieren

Gut und wie wäre es bei der zuletzt genannten Code Wochentag([Datum] ;2)=2 einen 14-tägigen ggf. 21-tägen Wechsel?
Die "2" hinterm dem Gleichheitszeichen steht für "Dienstag", oder?

 

Ja, 2 = Dienstag, wenn Montag als erster Tag der Woche angegeben ist. Tipp mal im VBA-Direktbereich Weekday ein und betätige die F1-Taste, worauf die Access-Hilfe erscheinen sollte mit allen Informationen zu Weekday.

Wenn über mehrere Jahre hinaus durchgängig ein Intervall von zwei oder drei Wochen nötig ist, dann ist die Wochentagsfunktion unbrauchbar wegen im vorherigen Beitrag genanntem Grund (Wochenanzahl pro Jahr).

Stattdessen für Dienstag alle zwei Wochen:

[Datum] Mod 14=3
oder
[Datum] Mod 14=10

bzw. Dienstag alle drei Wochen:

[Datum] Mod 21=3
oder
[Datum] Mod 21=10
oder
[Datum] Mod 21=17

Falls [Datum] auch eine Uhrzeit enthält, dann sollte diese mit der FIX-Funktion entfernt werden:
Fix([Datum]) Mod ...

Feiertage würde ich eher mit einer Kalendertabelle realisieren. Suche mal im Forum nach Kalendertabelle.

 

Hallo,
ich war derartig auf meine zusammengesetzte Vergleichszahl fixiert, dass ich die einfachste Lösung völlig aus den Augen verloren habe.
Das über das Datum zu machen, ist natürlich am einfachsten. Da sind auch beliebige Intervalle und Startwochentage zu realisieren.

 

Danke, habe in dem Direktbereich mit "Weekday" und F1 aufgerufen:
Einstellungen

Das Argument firstdayofweek hat die folgenden Einstellungen:
Konstante
Wert
Beschreibung
vbUseSystem
0
NLS-API-Einstellung wird verwendet.
vbSunday
1
Sonntag (Standardeinstellung)
vbMonday
2
Montag
vbTuesday
3
Dienstag
vbWednesday
4
Mittwoch
vbThursday
5
Donnerstag
vbFriday
6
Freitag
vbSaturday
7
Samstag
Rückgabewerte

Die Weekday-Funktion kann die folgenden Werte zurückgeben:
Konstante
Wert
Beschreibung
vbSunday
1
Sonntag
vbMonday
2
Montag
vbTuesday
3
Dienstag
vbWednesday
4
Mittwoch
vbThursday
5
Donnerstag
vbFriday
6
Freitag
vbSaturday
7
Samstag

Dann entnehme ich, das der Dienstag in unserem Beispiel dann "3" sein müsste. Oder hat es mit unserem deutschen System da eine Ursache?

 

Es hat was mit dem zweiten Argument, welches den Starttag der Woche angibt, zu tun:

In Deutschland ist der Wochenstart überlicherweise Montag - so wie es @gpswanderer in seiner Lösung angegeben hat.

In den USA ist der Wochenstart - denke ich - Sonntag.

Aber das spielt eigentlich keine Rolle, solange du dich auf eine Variante festlegst.

Wochentag([Datum];1)=3

liefert das gleiche Ergebnis, wie

Wochentag([Datum];2)=2

Pobier im VBA-Direktbereich aus, z. B. welcher Tag der Woche heute ist (Start bei Montag und Start bei Sonntag):

? Date() , Weekday(Date(),2) , Weekday(Date(),1)
05.01.2020 7 1

 

Hallo, habe nun mal versucht, eine Funktion einzubauen, die auch die Feiertage mit erstellt. Das geht leider nicht so.
Wie kann ich es da am besten machen, lösen?
Habe die DB als Anlage beigefügt.
Danke!

 

Hallo,
ich würde mir das viel einfacher machen.
Lege in der jetzigen Kalendertabelle ein Ja/Nein Feld an "Feiertag". Das hakts Du einfach manuell bei einem Feiertag an.
Du kannst so auch betriebliche freie Tage (Brückentage) berücksichtigen.

Das Modul das Du hast für den Kalender zu erstellen stammt aus einer meiner Beispeildatenbanken. Da habe ich das auch mit dem Hakenfeld gemacht. Das sind pro Jahr 10-12 Haken die da gesetzt werden müssen.

 

Hallo Klaus,
verstehe es jetzt so, die Feiertage mit Ja-Nein-Felder entsprechend auszuwählen. Und die betreffenden Tage manuell zu beschriften?

 

Hallo,
was sollte Dir die Feiertagsfunktion machen ?

Brauchst Du den Namen des Feiertags ?

 

Halo Klaus,
die Funktion soll die Namen der Feiertage in die Spalte "Beschreibung" einfügen bzw. einsetzen.