Sorry, dass ich hier einen uralten Thread wieder hervorhole ...
Matthias verwies zuletzt auf einen Keysolutions-Beitrag, der auch eine LS-Routine zur KW-Berechnung enthält. Genau über diese Routine bin ich letztens bei einem Kunden gestossen. Die Firma, die dort vorher programmieren durfte, hat diese Lösung 1:1 (fairerweise sogar mit Angabe des eigentlichen Autors) verwendet.
A-Bär: Diese Künstler wussten, dass ihr Code in einer internationalen Umgebung von Spanien bis Australien zum Einsatz kommen sollte. Und dabei sind sie über einen entscheidenden Fehler im Code von Christian Meis gestolpert:
December31Offset = CalculateIsoWeekday( Cdat( "31.12." & Cstr( YearInQuestion ) ) )
Mit dem westeuropäischen Datumsformat ("31.12." kann natürlich nicht jeder internationale Server klarkommen - der Ärger ist quasi vorprogrammiert.
Sollte also jemand den (ansonst stimmigen) Algorithmus verwenden, dann muss unbedingt die Settings für den ersten und den letzten Tag des Jahres ersetzt werden unter Zuhilfenahme der Funktion DATENUMBER (siehe Designerhelp).
Dann ist man derartige Sorgen weltweit los ;)
HTH,
Bernhard