Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kalenderwoche in Datum umwandeln
zurück: Werte in einem Endlosformular ersetzen weiter: Nach Speichern ist ein andere Datensatz vorhanden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
14. Dez 2005, 10:24
Rufname:

Kalenderwoche in Datum umwandeln - Kalenderwoche in Datum umwandeln

Nach oben
       

Wie kann ich bei Eingabe der Kalenderwoche in das Formular, diese in das Datum (dd,mm.yy) umrechnen.
TommyK
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Dez 2005, 12:42
Rufname:
Wohnort: Sachsen


AW: Kalenderwoche in Datum umwandeln - AW: Kalenderwoche in Datum umwandeln

Nach oben
       

Hallo,

Lösung hier: Berechnung von Kalenderwochen (DIN 1355)
Dort ist ein rekursive Funktion enthalten die aus einer KW das Datum errechnet.

_________________
Gruß Tommy
Willi Wipp
Moderator


Verfasst am:
14. Dez 2005, 13:28
Rufname:
Wohnort: Raum Wiesbaden

Re: Kalenderwoche in Datum umwandeln - Re: Kalenderwoche in Datum umwandeln

Nach oben
       

@TommyK,

meinst Du nicht eher die inverse Funktion GetDateFromWeek Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gast



Verfasst am:
14. Dez 2005, 14:45
Rufname:

AW: Kalenderwoche in Datum umwandeln - AW: Kalenderwoche in Datum umwandeln

Nach oben
       

Die brauchte eigetlich die Rückberechnung von KW in ein Datum. Hat sich aber schon erlidigt.
Trotzdem danke!!! 8)
TommyK
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Dez 2005, 16:13
Rufname:
Wohnort: Sachsen


AW: Kalenderwoche in Datum umwandeln - AW: Kalenderwoche in Datum umwandeln

Nach oben
       

@Willi
Wink Da hast Du natürlich Recht.

_________________
Gruß Tommy
D.R
Informatikkauffrau


Verfasst am:
10. Aug 2006, 13:39
Rufname:

AW: Kalenderwoche in Datum umwandeln - AW: Kalenderwoche in Datum umwandeln

Nach oben
       

Hallo alle zusammen,
ich habe genau das gleiche Prob..
Hab als angegebenen Liefertermin 200632. Also Jahr 2006 und KW 32.
Nun brauch ich eine Funktion, wie ich das in den Freitag der KW umrechnen kann.

_________________
Gruß Dani
Willi Wipp
Moderator


Verfasst am:
10. Aug 2006, 13:57
Rufname:
Wohnort: Raum Wiesbaden

Re: Kalenderwoche in Datum umwandeln - Re: Kalenderwoche in Datum umwandeln

Nach oben
       

Hi D. R.,

und wo ist das Problem Wink?
Mit der Funktion GetDateFromWeek von TommyK geht das doch.
Code:
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
und dann der Aufruf z.B. so
Code:
Public Function Test()
    Const cstrJahrKW As String = "200632"
    Const clngJahrKW As Long = 200632
   
    Debug.Print GetDateFromWeek(CInt(Right(cstrJahrKW, 2)), vbFriday, _
                                CInt(Left$(cstrJahrKW, 4)))
    Debug.Print GetDateFromWeek(CInt(Right(CStr(clngJahrKW), 2)), vbFriday, _
                                CInt(Left$(CStr(clngJahrKW), 4)))
End Function

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
D.R
Informatikkauffrau


Verfasst am:
14. Aug 2006, 12:57
Rufname:

AW: Kalenderwoche in Datum umwandeln - AW: Kalenderwoche in Datum umwandeln

Nach oben
       

D.R am 10. Aug 2006 um 14:03 hat folgendes geschrieben:
Hi Willi Wipp,
das sieht ja gut aus, allerdings brauch ich dafür erst mal nen Woche um das zu verstehen, aber ich werde es jetzt mal versuchen...
Geb dir dann Feedback, wenn ich das hinbekommen habe.
Danke schon mal.

So hab ich sogar schon verstanden.
Mein Prob ist aber nun:
Ich hab die beiden Funktionen als Module gespeichert, damit sie meinen Code nicht noch größer machen und dann hab ich die Funktion einfach als aller erstes vor meinen Code gesetzt.
Doch nun ist die Frage, wie greife ich auf die Funktion zu? Embarassed

Hi Willi Wipp,
so weit so gut, hab jetzt alles so eingebaut, dass es ohne Fehler durchläuft.
Allerdings sehe ich im Direktbereich mein Datum nur in meiner Datei macht er wieder die Kalenderwoche. Habe ein Format vorgegeben.
Und wenn ich die Funktion Kalenderwoche auskommatiere, dann läuft ja auch die Funktion GetDayFromWeek nicht mehr.
Wie kann ich das jetzt bitte beheben?
Hat sich erledigt. Hab es alleine geschafft Very Happy

_________________
Gruß Dani
EBlajs
Gast


Verfasst am:
27. Sep 2010, 09:29
Rufname:


AW: Kalenderwoche in Datum umwandeln - AW: Kalenderwoche in Datum umwandeln

Nach oben
       

Hallo,

habe genau diese Funktion GetDateFromWeek gebraucht und eingebaut. Aber 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? Hat jemand eine Idee was da der Grund sein könnte oder ob ich hier etwas falsch übernommen habe? Für Tipps wäre ich sehr dankbar, bräuchte die Funktion sehr dringend.

Ernst
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Datum im Formularkopf 6 didide 821 06. Jan 2005, 17:19
lothi Datum im Formularkopf
Keine neuen Beiträge Access Tabellen & Abfragen: in einer Wenn dann Funktion aufs Datum gruppieren 10 Gast 691 06. Jan 2005, 10:22
Skogafoss in einer Wenn dann Funktion aufs Datum gruppieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum und Uhrzeit automatisch speichern 3 peinberger 1119 30. Dez 2004, 10:33
mapet Datum und Uhrzeit automatisch speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfrage mit größer als Parameter Datum 2 Terrific 14868 06. Dez 2004, 19:46
Gast Access Abfrage mit  größer als Parameter Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum konvertieren 2 pad8626 1236 03. Dez 2004, 16:25
pad8626 Datum konvertieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum 5 Jogler 1001 29. Nov 2004, 13:27
borstel Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Accessdaten Datum in Englischer Form in Serienbrief von Word 1 Hajo 1127 24. Nov 2004, 11:49
Gast Accessdaten Datum in Englischer Form in Serienbrief von Word
Keine neuen Beiträge Access Tabellen & Abfragen: Achtstelligen Zahlen-Stringwert als Datum formatieren 2 cmaier 1302 15. Nov 2004, 15:10
cmaier Achtstelligen Zahlen-Stringwert als Datum formatieren
Keine neuen Beiträge Access Tabellen & Abfragen: Negativ Ergebnisse in 0 umwandeln 3 Forsi 594 28. Sep 2004, 17:26
Skogafoss Negativ Ergebnisse in 0 umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: 3. ältestes Datum 3 shaaree 793 27. Sep 2004, 11:03
Skogafoss 3. ältestes Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum in Zahl umwandeln 2 Lorenz 1017 01. Sep 2004, 18:45
Lorenz Datum in Zahl umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: Datum berechnen 1 kdl 1146 09. Aug 2004, 06:10
TommyK Datum berechnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum