Tag anhand des Datums?

[Pseudemys Nelsoni]

Moin,

wie bekomme ich den Tag anhand eines Datums heraus? Gibts da eine Funktion?

[Matze]

Könnte so gehen:

FormatDateTime('dddd', TDateTime);

[Pseudemys Nelsoni]

Hm, wie kriege ich damit denn den Tag? <g>

[alcaeus]

Welchen Tag meinst du? Den Wochentag (z.B. Montag) oder den Tag selbst (also 20)?

Ersteres geht mit DayOfWeek(), letzteres mit DecodeDateTime()

Greetz
alcaeus

[Pseudemys Nelsoni]

ersteres meinte ich, danke

Gibt DayOfWeek auf jedem OS die gleiche Sprache aus? also Montag bzw Monday?

[Khabarakh]

DayOfWeek gibt einen Wert des Typs Word zurück, wo siehst du da einen String ? Oder meinst du DayOfWeekStr?

[edit]Letzteres gibt eines der folgenden zurück:

Delphi-Quellcode:

DaysOfWeek: array[1..7] of string = (
    'Sun', 'Mon', 'Tue', 'Wed',
    'Thu', 'Fri', 'Sat');

[Matze]

Zitat von Pseudemys Nelsoni:

Hm, wie kriege ich damit denn den Tag?

Hab das mal schnell hingeschrieben, klar DayOfWeek geht auch, aber mein Vorschlag ginge so:

Delphi-Quellcode:

function GetDayName(Date: TDateTime): string;
begin
  result := FormatDateTime('dddd', Date);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Date: TDateTime;
begin
  Date := StrToDateTime('30.04.1985');
  Caption := GetDayName(Date);
end;