Kalenderwochenberechnung USA

[sirarcher]

Hi Leute,

irgendwie stelle ich mich heute zu blöd an, daher hoffe ich das mir einer von euch helfen kann.

Ich weiß das ich zB. mit der JclDateTime -> Funktion "ISOWeekNumber" oder

mit "WeekOfTheYear"

die Kalenderwoche berechnen kann. Und zwar die ISO 8601 gültige.

Ich würde jedoch die Amerikanische benötigen. (Wochenbegin Sonntag, Erste Sonntag = KW 1)

In VB geht dies mit KW = Format(Datum, "ww", VbSunday, VbFirstJan1)

Weiß jemand wie ich dies in Delphi bewerkstellige?

Danke für jede Hilfe!


PS: Als Beispieldaten:

01.01.1994 --> SA --> EU (KW 52)
01.01.1994 --> SA --> USA (KW 52)

01.02.1994 --> SO --> EU (KW 52)
01.02.1994 --> SO --> USA (KW 1)