Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- microsoft:access [2020/09/04 14:36] – [Recordsets zum Bearbeiten von Datensätzen] franz
+++ microsoft:access [2021/11/04 18:59] (aktuell) – Externe Bearbeitung 127.0.0.1
@@ Zeile 8: / Zeile 8: @@
 Intern werden Datumsfelder mit Datum und Uhrzeit abgespeichert. Will man ein Datumsfeld in ein csv-File exportieren. wird auch die Zeit mit "00:00:00" mitexportiert. Will man das unterbinden, hilft die Anlage eines Hilfsfeldes, das dann statt dem ursprünglichen Feld ausgegeben wird.
-<code>
+<code>
 NurDatum: NFormat(ZDate([Datum]);"jjjj-mm-tt")
 </code>
   * NurDatum ist das neu formatierte Datumsfeld
   * Datum ist das ursprüngliche Datumsfeld, das nicht ausgegeben werden soll
+==== Datumsbereich einer Kalenderwoche ermitteln ====
+Bekommt man z.B. von einem Onlineversand die Information, dass ein Artikel in der KW 50 geliefert wird, kann man mit Hilfe dieser Funktion das Startdatum der Kalenderwoche ermitteln.
+Übergabeparameter: Kalenderwoche, Jahr\\
+Rückgabewert:          Startdatum\\
+Quelle:                       SmartTools Access Weekly 45/2020:
+<code>
+Function KWStartDatum(intKW As Integer, _
+                      intJahr As Integer) As Date
+  Dim dtStart As Date
+  Dim dtJahr As Date
+  KWStartDatum = DateSerial(1980, 1, 1) 'Default: 1.1.1980
+  If Not IsDate(DateSerial(intJahr, 1, 1)) Then
+    intJahr = Year(Now) 'Aktuelles Jahr
+  End If
+  If intKW <1 Or intKW> 53 Then
+    dtJahr = DateSerial(intJahr, 1, 1) 'ab 1.1.JJJJ
+    intKW = KW(dtJahr)
+    dtStart = dtJahr
+  Else
+    dtStart = DateSerial(intJahr, 1, 1) 'ab 1.1.JJJJ
+  End If
+  Do Until KW(dtStart) = intKW
+    DoEvents
+    dtStart = dtStart + 1
+  Loop
+  KWStartDatum = dtStart
+End Function
+</code>
 ===== Formularfelder nach Auswahl aus Kombinationsfeld füllen =====