DBR Delphi-Ecke

// Wenn man die Funktion "DayOfTheWeek" aus "DateUtils"
// nutzt, dann passt das Array "LongDayNames" aus "SysUtils"
// nicht dazu. Deshalb die folgende Funktion:

// Getestet mit D6 unter XP

uses DateUtils; 
 
function WochentagLangname(TagZahl: Integer): string; 
begin 
  Result := LongDayNames[1 + TagZahl mod 7]; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  DatumString, Wochentag: string; 
  w: word; 
begin 
  DatumString := '25.6.2006'; 
  w := DayOfTheWeek(StrToDate(DatumString)); 
  Wochentag := WochentagLangname(w); 
  showmessage(Wochentag); 
end;

// Ansonsten muss man "DayOfWeek" aus "SysUtils" benutzen:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  DatumString, Wochentag: string; 
  w: word; 
begin 
  DatumString := '25.6.2006'; 
  w := DayOfWeek(StrToDate(DatumString)); 
  Wochentag := LongDayNames[w]; 
  showmessage(Wochentag); 
end;