TKSoft-Online

Ich habe diese Funktion hier gefunden und das wäre genau was ich für mein Access Applikation brauchen würde. Als ich das bei mir getestet habe ist aber folgendes aufgetreten:
Für den Montag der ersten Woche im Jahr 2010 liefert mir die Funktion das Datum 28-12-2009 wobei nach meinem Tischkalender dies das Datum 04-01-2010 sein müsste? Ermittle ich die Kalenderwoche für das Datum 28.12.2009 direkt in Access mit DatTeil("ww";#28.12.2009#;2;2) so liefert mir das die KW 53. Für meine Funktion bräuchte ich die Kalenderwochen so wie sie auf jedem "Tischkalender" angegeben sind. Das Problem habe ich sowohl in MSAccess 2002 und 2007.

Hat jemand eine Idee was da der Grund sein könnte oder was ich hier falsch machen? Für Tipps wäre ich sehr dankbar, bräuchte die Funktion sehr dringend und sie liefert eigentlich genau dass was ich brauche abgesehen von dieser Ungereimtheit.

Vielen Dank und herzliche Grüsse,

Ernst

Hallo Ernst,

ich kann Dein Problem nicht nach vollziehen.
Die Funktion aus meiner Bsp-DB gibt bei

den 04.01.2010 aus.
s. auch Bild

Hallo Tommy,

vielen Dank für die rasche Antwort. Ich habe mir eh gedacht, dass die Funktion ausgereift ist deswegen ist es für mich so schwierig das nachzuvollziehen. Ich muss vorausschicken, dass ich in Access-VBA nicht so bewandert bin. Untenstehend der Code, denn ich in mein Modul mdlGetDateFromWeek eingetragen habe:

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Option Compare Database
Option Explicit

Public Function GetDateFromWeek(ByVal nWeek As Integer, _
nDayOfWeek As Integer, _
Optional ByVal nYear As Integer = -1)
'*******************************************
'Name: GetDateFromWeek (Function)
'Purpose:
'Author: Dieter Otter, angepasst an VBA von Thomas Keßler
'Date:
'Called by:
'Calls:
'Inputs:
'Output:
'Example: vMonday = GetDateFromWeek(12, vbMonday, 2003)
'*******************************************
Dim nCurWeek As Integer
Dim vStart As Variant
Dim vStart1 As Variant
Dim vMonday As Variant
Dim vSunday As Variant
Dim nDay As Integer

Select Case nDayOfWeek
Case 1: nDayOfWeek = vbMonday
Case 2: nDayOfWeek = vbTuesday
Case 3: nDayOfWeek = vbWednesday
Case 4: nDayOfWeek = vbThursday
Case 5: nDayOfWeek = vbFriday
Case 6: nDayOfWeek = vbSaturday
Case 7: nDayOfWeek = vbSunday
End Select
' Kein Jahr angeben? Dann aktuelles Jahr verwenden!
If nYear = -1 Then nYear = Year(Date)
' aktuelle Woche im Jahr nYear ermitteln
vStart1 = DateSerial(nYear, Month(Date), Day(Date))
nCurWeek = Kalenderwoche(vStart1, False)
' Datum der gewünschten Woche ermitteln
vStart = DateAdd("ww", nWeek - nCurWeek, vStart1)
' Wochenanfang ermitteln
nDay = Weekday(vStart, vbMonday)
' Datum des gewünschten Wochentags ermitteln
If nDayOfWeek = vbSunday Then
GetDateFromWeek = DateAdd("d", -nDay + 7, vStart)
Else
GetDateFromWeek = DateAdd("d", -nDay + nDayOfWeek - 1, vStart)
End If
End Function


Function Kalenderwoche(XDatum As Variant, fModus As Boolean) As String
' Gibt Ein Datum als "ww\jjjj" String zurück
' Wenn eine Wochennummer in ein unterschiedliches Jahr fällt,
' so wird dies berücksichtigt
' d.h. 31.12.2002 = 01\2003 bzw. 1.1.1999 = 53\1998
Dim x, Y, Z

Kalenderwoche = ""
If Not IsDate(XDatum) Then Kalenderwoche = "": Exit Function
XDatum = CDate(XDatum)
x = Year(XDatum)
Y = Month(XDatum)
Z = CInt(Format(XDatum, "ww", vbMonday, vbUseSystem))
If Z > 52 Then
If Format(XDatum + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then Z = 1
End If
If Y = 12 And Z < 40 Then x = x + 1
If Y = 1 And Z > 10 Then x = x - 1
If fModus = True Then
Kalenderwoche = Right("00" & Z, 2) & "/" & Right("0000" & x, 4)
Else
Kalenderwoche = Right("00" & Z, 2)
End If
End Function

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Wenn ich dieses Modul in einer Message Box wie von Dir beschrieben ausgebe erhalte ich den 28.12.2009. Das muss irgendwie am Code liegen oder an meinem Computer aber das Resultat bekommen auf drei unterschiedlichen PCs. Ich habe den Code kopiert, selber würde ich auf so etwas niemals kommen, dafür sind meine VBA Kenntnisse viel zu schwach. Habe ich da etwas falsch gemacht? Ich bin für jede Tipp dankbar, die Funktion wäre für meine Bedürfnisse perfekt geeignet.

Ernst

Hallo,

ich habe jetzt die Beispiel DB nochmals runtergeladen und sie bei mir mit MS Acc02 geöffnet. Bei mir liefert die KW1 von 2010 auch in der Beispiel DB dasselbe Datum. Ich habe versucht ein Snapshot des Formulers in der Beispiel DB als Anhang mitzuschicken, hoffe es funktioniert.

Danke,

Ernst

Hallo Ernst,

unter 2003 zeigt es mir die Werte richtig an.
Ich teste es heute Nachmittag zu Hause nochmal mit A2007 und A2010 und melde mich dann.

Hallo Ernst,

die DB hier im Anhang zeigt unter A03, A07 und A10 die richtigen Werte bei mir an.

Hallo Tommy,

danke für das Feedback. Ich habe die Datei nochmals runtergeladen und erhalte noch immer diese seltsame Konstellation wie im Anhang ersichtlich (habe das in Access 2002 und 2007 mit identem Ergebnis ausprobiert). Ich habe mittlerweile eine Behelfsfunktion gefunden, mit der man den Montag einer angegebenen Woche ermittelt und von dort arbeite ich dann mit der Funktion DatAdd. So geht es. Es würde mich aber natürlich interessieren, warum das auf einem Computer funktioniert und am anderen nicht. Aber um das herauszufinden müsste man bessere EDV-Kenntnise haben als bei mir vorhanden. Auf jeden Fall danke für die Mühen. Leider scheint es, dass ich die Funktion bei mir nicht einsetzen kann obwohl ich sie des öfteren brauchen könnte. Mit der obigen Behelfsprozedur geht es auch aber halt nicht so elegant.

Ernst

Hallo Ernst,

erweitere mal den Code um die letzten Zeilen:

Am besten Du rufst die Funktion mal direkt auf:

Dann kannst Du über das Menü Ansicht -> Direktfenster im VBA-Editor den Inhalt der Variablen sehen.
s. Bild