Mosche

Steh gerade voll auf dem schlauch (wie immer)

markieren

Delphi-Quellcode:

Wochentag:= DateToStr(DayOfWeek(DateTimePicker2.date));
StringGrid1.cells[0,0]:= WochenTag;

Möchte den Wochentag haben

Gruß Sascha

Hier das Beispiel aus der Delphi 5-Hilfe:

Zitat:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sonntag';
  days[2] := 'Montag';
  days[3] := 'Dienstag';
  days[4] := 'Mittwoch';
  days[5] := 'Donnerstag';
  days[6] := 'Freitag';
  days[7] := 'Samstag';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' ist ein ' + days[DayOfWeek(ADate)];
end;

hoi,

machs so wie in der Hilfe

zusammenfalten · markieren

Delphi-Quellcode:

var
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  Wochentag:= days(DayOfWeek(DateTimePicker2.date));
  StringGrid1.cells[0,0]:= WochenTag;
end;

cya


edit: zu spät

In der Delphi-Hilfe ist ein Beispiel dabei.
Vielleicht gibt Dir das einen Anhaltspunkt.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;

/edit:
Och Menno, zu langsam
Gleich zweimal zu langsam

Oder schau dir mal FormatDateTime() an.

Oder einfach so:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(LongDayNames[DayOfWeek(now)]);
end;

Ja danke funktioniert soweit alles super

Zitat von fuknersascha:

Ja danke funktioniert soweit alles super

Falls das aber auf einem anderen Computer compiliert wird (auf dem ein englisches Delphi installiert ist), kommen die Tagesnamen natürlich auch in Englisch.
Evtl passiert das auch auf einem Computer, der ein englische Windows hat.

Da muss man sich halt überlegen, was man haben will. Soll es auf jeden Fall Deutsch sein, ist Selber machen angesagt. Ich persönlich würde aber eher zu den systemspezifischen Einstellungen tendieren.

naja dann ist gleich noch eine englisch learning funktion mit drin

Nein quatsch und eine abhilfe wäre??

Also mein system ist in Deutsch und ich glaube von den endbenutzern auch