DateTimePicker Wochentag

[SaFu]

Mosche

Steh gerade voll auf dem schlauch (wie immer)

Delphi-Quellcode:

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

Möchte den Wochentag haben

Gruß Sascha

[DeddyH]

Hier das Beispiel aus der Delphi 5-Hilfe:

Zitat:

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;

[soulies]

hoi,

machs so wie in der Hilfe

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

[RavenIV]

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

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

[mkinzler]

Oder schau dir mal FormatDateTime() an.

[Sharky]

Oder einfach so:

Delphi-Quellcode:

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

[SaFu]

Ja danke funktioniert soweit alles super

[RavenIV]

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.

[DeddyH]

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.

[SaFu]

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