vereinfachen der folgenden Funktion

[kiar]

Hallo,

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

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]

[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

[kiar]

danke mirage,

da sieht mann erstmal die Vielfalt, die das .Net Framework bietet.

raik