vereinfachen der folgenden Funktion

[mirage228]

Hi,

mit CultureInfo und seiner Calendar Eigenschaft gehts.

Delphi-Quellcode:

var
  CUI: CultureInfo;
  Week: Integer;
begin
  CUI := CultureInfo.CreateSpecificCulture('de-DE');
  Week := CUI.Calendar.GetWeekOfYear(DateTime.get_Now,
    CUI.DateTimeFormat.CalendarWeekRule, CUI.DateTimeFormat.FirstDayOfWeek);

mfG
mirage228