vereinfachen der folgenden Funktion

[kiar]

Hallo,

leider gibt es in .net keine Funktion welche die Kalenderwoche ausgibt, oder ich habe sie nicht gefunden

Kann man nachfolgende Funktion noch vereinfachen?

Nein ich will nicht das aktuelle Datum übergeben, es geht mir nur um den Syntax.

Delphi-Quellcode:

function TWoche.Get_Week: Integer;
var Date
   ,FirstDate    : DateTime;
    DayCount
   ,Compensation : Integer;
begin
  Date:=DateTime.get_Now ;                       // aktuelle Datum
  FirstDate:= DateTime.Create(Date.Year, 1, 1);  // der 01.01. des aktuellen Jahres
  case FirstDate.DayOfWeek of
       DayOfWeek.Sunday   : Compensation:= 0;
       DayOfWeek.Monday   : Compensation:= 6;
       DayOfWeek.Tuesday  : Compensation:= 5;
       DayOfWeek.Wednesday: Compensation:= 4;
       DayOfWeek.Thursday : Compensation:= 3;
       DayOfWeek.Friday   : Compensation:= 2;
       DayOfWeek.Saturday : Compensation:= 1;
  end;
  DayCount:= Date.DayOfYear - Compensation;
  If DayCount mod 7 = 0 then
     Result:= DayCount div 7
  else
     Result:= DayCount div 7 + 1
end;

Danke raik

[edit=Christian Seehase]Code gemäss kairs Vorgaben geändert. Mfg, Christian Seehase[/edit]