Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

DatePart - Bug ?
Autor: André
Datum: 19.09.02 14:14
Hallo allerseits, ich habe eine kleine Funktion geschrieben, dei mir einen String zu einem übergebenen Datum in der Form 'YYYYWW' zurückgeben soll, wobei WW die Kalenderwoche angibt. Hier die Funktion: ' *** Ermittelt die Kalenderwoche mit zugehörigem Jahr *** Function fConvKW(ZuKonvertDat As Date) As String 'fConvKW wird in der Form YYYYKW zurückgegeben fConvKW = DatePart("ww", ZuKonvertDat, vbMonday, vbFirstFourDays) 'Anpassung des Jahres und Ergänzung der Null '(in den Kalenderwochen 01, 52 und 53 kann das Jahr des Datums anders sein ' als das Jahr der zugehörigen Kalenderwoche - so liegt der 31.12.2001 in KW01/2002) If fConvKW < 10 Then fConvKW = Year(ZuKonvertDat + 6) & "0" & fConvKW Else fConvKW = Year(ZuKonvertDat - 6) & fConvKW End If End Function Wenn ich nun den 1.1.2003 übergebe, gibt Datepart die Kalenderwoche 53 zurück, obwohl es KW01 ist. Auch mit fConvKW = DatePart("ww", ZuKonvertDat, vbUseSystemDayOfWeek, vbUseSystem), also mit automatisch ermittelten Systemparametern klappt's nicht. Es wird ein deutscher Windows-Client eingesetzt. Hat irgendwer 'ne Ahnung ? Danke für jede Idee !!! André

DatePart - Bug ?

69

André

19.09.02 14:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen