DateTimePicker Wochentag

[SaFu]

Mosche

Steh gerade voll auf dem schlauch (wie immer) :-D

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 :duck:

[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:

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

[DeddyH]

Ich denke, mit Sharkys Lösung bist Du auf der sicheren Seite (außerdem ist sie schön kurz).

[Sharky]

Zitat:

Zitat von RavenIV

...Evtl passiert das auch auf einem Computer, der ein englische Windows hat.

Leider nicht. Delphi hat die Wochentagsnamen in der SysConst.pas stehen.
Am schönsten wäre es wenn er sie wirklich vom OS holen würde.

[mkinzler]

Zitat:

Zitat von DeddyH

Ich denke, mit Sharkys Lösung bist Du auf der sicheren Seite (außerdem ist sie schön kurz).

Delphi-Quellcode:

ShowMessage( FormatDateTime( 'dddd', now) );

ist aber noch kürzer

[DeddyH]

Viele Wege führen nach Rom :zwinker:

[Sharky]

Zitat:

Zitat von mkinzler

ist aber noch kürzer

Delphi-Quellcode:

FormatDateTime('dddd',now);
LongDayNames[DayOfWeek(now)];

Ach menno. Wegen den zwei Zeichen ;-)

[taaktaak]

Hihi,
wenn die Angabe Mon, Die, Mit ... ausreicht,
sind es sogar 3 Zeichen weniger

[mkinzler]

@sharky: Dafür dürfte dein Code schneller sein, weil FormatDateTime() intern dasselbe macht.