Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: GetStartOfFirstWeekInYearISO8601

    Delphi
    by negaH, 17. Apr 2010
  Wie hier http://www.delphipraxis.net/internal_redirect.php?p=1117206#1117206 heraus gearbeitet sollte obige Funktion wie nachfolgend geändert werden.
  
  
  function WeekOfDate(A: TDateTime): Integer;
  var
  Day: Integer;
  Y,M,D: Word;
  begin
  A := Int(A);
  Day := DayOfWeekGerman(A);
• Forum: Object-Pascal / Delphi-Language

  Re: GetStartOfFirstWeekInYearISO8601

    Delphi
    by negaH, 10. Jul 2006
  function DateOfWeek(Year, Week: Word): TDateTime;
  begin
  Result := EncodeDate(Year, 1, 1);
  Result := Result - (DayOfWeek(Result -2) +3) mod 7 +3 + (Week -1) * 7;
  end;
  
  
  Berechnet das Datum zu einer Kalenderwoche und Jahr, kommt ohne Schleifen aus, kann mit negativen Kalenderwochen arbeiten und auch mit zu großen Kalenderwochenangaben.