Office: (Office 2003) Ersten Tag und letzten Tag einer Kalenderwoche angeben.

User · 29. Mai 2011

Hallo,

ich benötige für jede Kalenderwoche eines Jahres den ersten Tag (Montag) und letzten Tag (Freitag).

In der Tabelle ist Kalenderwoche und Jahr angegeben.

Gibts eine Möglichkeit?

Danke für eure Hilfe!

:)

avogt_at_home · 31. Mai 2011

Hallo,
hier findest du die benötigten Funktionen dazu:

http://www.access-paradies.de/tipps/..._ermitteln.php

Gruß Andreas

ebs17 · 31. Mai 2011

Für effektive Berechnungen im Zusammenhang mit Arbeitstagen ist recht oft eine Hilfstabelle sinnvoll, die fortlaufend alle Kalendertage des benötigten Zeitraumes enthält. In zusätzlichen Spalten kann man, ausgehend vom Datum, (herrlich unnormalisiert) berechnete Werte zu diesem Datum festhalten:
- Wochentag
- Monat (Format yyyymm)
- Kalenderwoche (Achtung: Kalenderwoche nach DIN)
- Quartal u.ä.
Der erste Wochentag wäre dann das minimale und der letzte Wochentag das maximale Datum der gewählten Woche.

Diese Hilfstabelle kann man kombinieren mit einer Feiertagstabelle.

Eine (etwas ausgebautere) Anwendung davon kannst Du hier sehen. Zum Download der Demo-DB ist eine Anmeldung erforderlich.
Acc2007 - Kündigungsfristen berechnen

root123456 · 31. Mai 2011

Hallo,

den link http://www.access-paradies.de/tipps/..._ermitteln.php
hatte ich auch gefunden.

Die Funkion wäre

PHP:

FirstDayOfWeek = dtDate - (Weekday(dtDate, vbMonday) - 1)

Thomas Möller · 31. Mai 2011

Hallo!

von root123456

Wo nehme ich in der Funktion Bezug auf die Kalenderwoche+Jahr
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

probier mal folgende Funktion aus:
Code:

Public Function gibTagDerWoche(ByVal Wochentag As VbDayOfWeek, ByVal Woche As Long, ByVal Jahr As Long) As Date

Dim Start As Date
Dim x As Date
Dim WTag As Long

Start = DateSerial(Jahr, 1, 1)

x = DateAdd("ww", Woche, Start)

WTag = Weekday(x)

gibTagDerWoche = DateAdd("d", Wochentag - WTag, x)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese Funktion gibt Dir für jedes beliebige Jahr und jede beliebige Woche das Datum für jeden beliebigen Wochentag der angegebenen Woche zurück.

HTH

root123456 · 31. Mai 2011

Danke es funktioniert! Problem gelöst *Smilie

Thomas Möller · 1. Juni 2011

Hallo!

von root123456

Danke es funktioniert! Problem gelöst
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Noch nicht ganz. *wink.gif*

Ich habe den Code noch etwas angepasst um darauf zu reagieren, dass der 1. Januar nicht immer in die 1. KW fällt:
Code:

Public Function gibTagDerWoche(ByVal Wochentag As VbDayOfWeek, _
ByVal Woche As Long, _
ByVal Jahr As Long) As Date

Dim Start As Date
Dim x As Date
Dim WTag As Long
Dim Korrektur As Long

Start = DateSerial(Jahr, 1, 1)

If Format$(Start, "ww", vbMonday, vbFirstFourDays) = 1 Then
Korrektur = -1
End If

x = DateAdd("ww", Woche + Korrektur, Start)

WTag = Weekday(x)

gibTagDerWoche = DateAdd("d", Wochentag - WTag, x)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HTH

Klaus B aus D · 8. April 2013

Hallo Thomas,

ich wollte deine angepasste Funktion in einer Anwendung einsetzen, muss aber leider festellen, dass Berechnungen des Datums für einen Freitag im Jahr 2012 mit einem Datum angegeben werden, das immer erst in für die nächst folgende Woche stimmt.
Im Jahr 2013 kann ich dagegen keine Diskrepanz feststellen.

MfG
Klaus

Marsu65 · 8. April 2013

Hallo Klaus,
siehe hier: FAQ 2.9 Montag einer Kalenderwoche
Für den Freitag vier Tage dazuzählen. *wink.gif*

Klaus B aus D · 8. April 2013

Hallo Marsu,

danke schön für den Hinweis.

Die Funktion von Donkarl habe ich bereits für die "Montags"-Bestimmung einer KW seit geraumer Zeit genutzt. Der entscheidene Tipp, um den Freitag zu bestimmen, war:
"vier Tage dazuzählen".

Grüße aus Dorsten sendet
Klaus

Office: (Office 2003) Ersten Tag und letzten Tag einer Kalenderwoche angeben.

Ersten Tag und letzten Tag einer Kalenderwoche angeben.

Ersten Tag und letzten Tag einer Kalenderwoche angeben.

Ersten Tag und letzten Tag einer Kalenderwoche angeben.

Ersten Tag und letzten Tag einer Kalenderwoche angeben.

Ersten Tag und letzten Tag einer Kalenderwoche angeben. - Similar Threads - Tag Tag Kalenderwoche

Einträge in Textfelder am nächsten Tag verschwunden

Gelöschte Elemente, Elemente in diesem Ordner werden in 30 Tagen gelöscht

Tage je Kalenderwoche

Serienbrief, Datum plus 7 Tage

Bestimmte Mail automatisch nach X Tagen löschen

Anzahl Tage berechnen, inclusiv Startdatum

Kalenderwoche anzeigen (aber nur den jeweils ersten Tag)