Office: betimmten Montag als Datum in Bericht anzeigen

Hallo,
Ich möchte in Access einen Bericht erstellen. Der holt verschiedene Daten und stellt die dar. Der Bericht soll eine Überschrift bekommen, unter anderem mit zwei Datumsangaben:
einmal das Datum des Montag und einmal das Datum des folgenden Sonntags.
Abhängig soll dass sein vom Erstellungsdatum des Berichts, also der Montag selbst (wäre heute der Fall), bzw. der Montag vor Berichtserstellung, und der Sonntag, der der Berichtserstellung folgt.
Wäre also heute: 06.05.2024 und 12.05.2024
Ich habe folgenden Thread im Excel-Forum gefunden, aber die Formel habe ich leider nicht für Acces umgebaut bekommen.

(Office 2013) - Datum Montag bis Freitag aus KW

Habt ihr da einen Tipp für mich?
Vielen Dank und viele Grüße
HankBully

 

Mit Feldern vom Typ Datum kann man rechnen, weil sie intern als Integerwert dargestellt werden.
Du kannst also zunächst den Montag ermitteln und dann wieder sechs Tage dazu addieren um den Sonntag zu bekommen.
Daraus ergeben sich zwei Funktionen:

Code:

Public Function movorheute(datheute As Date) As Date
  Dim zaehldat As Date
  zaehldat = datheute
  Do Until Weekday(zaehldat) = vbMonday
     zaehldat = zaehldat - 1
  Loop
  movorheute = zaehldat
End Function

Public Function sonachheute(datheute As Date) As Date
  sonachheute = movorheute(datheute) + 6
End Function

Schreibe diese in ein allgemeines VBA-Modul. Dann kannst Du sie von überall her für jedes beliebige Datum aufrufen.

Wenn Du also den Montag vor Heute ermitteln willst:

Code:

Suchmontag = movorheute(Date())

analog den folgenden Sonntag:

Code:

Suchsonntag = sonachheute(Date())

Alle Felder müssen dabei den Datentyp Datum haben.

 

Wenn Du ein anderes Datum, als das aktuelle Datum abfragen möchtest, muss es in der amerikanischen Schreibweise das Date() ersetzen: #mm/dd/yyyy#

 

Hallo Andy,
Danke für den Code, habe das gerade ausprobiert und funktioniert wie es soll. Eine Frage noch zum Verständnis des Programm-Codes für mich, ich will ja was dazu lernen.
Die Schleife prüft vor dem ersten Durchlauf ( also Zaehldat ist das heutige Datum) ab, ob zaehldat ein Montag ist, sprich, wenn ich den Bericht Montags aufrufe, dann wird genau dieser Montag als Datum hergenommen, was ich möchte, und nicht der Montag von vor einer Woche, oder?

Danke für deine Hilfe.
Viele Grüße
HankBully

 

Hallo,
das ist richtig. Schau Dir dazu mal in diversen Tutorials, z.B. https://www.access-tutorial.de, den Unterschied zwischen Do...While und Do...Until an. Und probiere es einfach mal in VBA aus, indem Du Variablen durch die Schleifen laufen lässt.
Weiterhin gibt es natürlich auch noch For...Next-Schleifen.

 

Halo Andy,
Danke für den Tipp. Ich hab früher (MS-Dos-Zeiten) als Teenager mal in TurboPascal angefangen zu programmieren. Hab das aber nie wirklich intensiviert. Daher kenne ich die Schleifen im Grundsatz ein bißchen. Leider fehlt mir die Zeit, um in VBA mal intensiver einzusteigen und das gezielt zu lernen.
Aber ich freue mich immer, wenn ich quasi durch "Doing" einen neuen Aspekt lerne, den ich dann an anderen Stellen auch wieder einsetzen kann.
Vielen Dank an dich und die Forums-Leute, die ihr Wissen da einbringen, und mir da weiterhelfen.
viele Grüße
HankBully

PS MS-Dos? Kennt das eigentlich noch jemand? Man wird irgendwie langsam alt... ;-) ;-)

 

OT. Naja, und was ist mit Assembler? Cobol, Fortran, PL/1...Das waren noch Zeiten, wo man mit Bits und Bytes rechnen musste..