datepart

• datepart von martin T vom 27.11.2003 17:04:54
  • AW: datepart - von GerdW am 27.11.2003 17:07:46
  • UDF.. meinst du mit Formel korrigieren ? - von martin T am 27.11.2003 17:17:33
    • AW: UDF.. meinst du mit Formel korrigieren ? - von GerdW am 27.11.2003 17:19:27
      • dankeeee.. - von martin am 27.11.2003 17:23:07

Betrifft: datepart
von: martin T
Geschrieben am: 27.11.2003 17:04:54
hallo zusammen
mir ist gestern aufgefallen, das

DatePart("ww", #12/29/2003#, vbmonday, vbFirstFourDays)

die 53. Kw. liefert. Da ist doch aber Montag, in dem Fall also die 1. Kw.
Mache ich irgendwo n Denkfehler? Wer hilft??

Danke im vorraus,
gruß Martin

Betrifft: AW: datepart
von: GerdW
Geschrieben am: 27.11.2003 17:07:46
Das ist ein bekannter bug.
Abhilfe: UDF

Gerd

Betrifft: UDF.. meinst du mit Formel korrigieren ?
von: martin T
Geschrieben am: 27.11.2003 17:17:33
..danke Gerd. Mir war der noch nicht bekannt. Ist in diesem Fall nicht wichtig,
Die anderen Jahre scheinen ja zu klappen. In 8 Wochen kräht kein Hahn mehr danach.

gruß Martin

Betrifft: AW: UDF.. meinst du mit Formel korrigieren ?
von: GerdW
Geschrieben am: 27.11.2003 17:19:27
UDF = Benutzerdefinierte Funktion

Function KaWe_DIN(Datum As Date) As Integer
Dim D As Date
D = Datum
KaWe_DIN = _
Fix((D - Weekday(D, 2) - DateSerial(Year(D + 4 - Weekday(D, 2)), 1, -10)) / 7)
End Function

Gerd

Betrifft: dankeeee..
von: martin
Geschrieben am: 27.11.2003 17:23:07
...