DateTimeToStr funzt nich :(

[f4k3]

Delphi-Quellcode:

procedure TfLogin.Timer_ZeitanzeigeTimer(Sender: TObject);
begin

        lZeitanzeige.Caption :=   FormatDateTime ('"Aktuelles Datum: "dddd," dem " d. mmmm yyyy, ' +
        '"     aktuelle Uhrzeit: " hh:mm:ss', StrToDateTime ('12.11.07 20:45'));

end;

Möchte nem Label, Das aktuelle Datum und die aktuelle Uhrzeit anzeigen lassen ... mein timer hat n intervall von 1000 ... sprich jede sekunde wird die uhrzeit und das Datum erneuert ... nun ist es aber so ... dass ich bis jetzt nur geschafft habe in meinem code, feste "Werte" zu hinterlegen ...

könntet ihr ihr mir sagen wie ich mir die Systemzeit hole?

wär nett ...


Danke schonmal im vorraus ... euer f4k3 ;)

//edit:

Ich weiß dass es DateTimeToStr heißen müsste ... aber mit DateTimeToStr (now) funktioniert dass ganze auch nicht ... wie man hierran erkennen kann ;) :P

Fehlermeldung

[DeddyH]

Delphi-Quellcode:

procedure TfLogin.Timer_ZeitanzeigeTimer(Sender: TObject);
begin

        lZeitanzeige.Caption := 'Aktuelles Datum: ' + FormatDateTime ('dd. mmmm yyyy',now) +
        ', aktuelle Uhrzeit: ' + FormatDateTime('hh:nn:ss', now);

end;

[f4k3]

Danke dir ;)

[f4k3]

noch ne frage :P

sieht weng doof aus wenn des so ne große zeile is ^^

Kann ich des auf zwei zeilen "ausweiten" oder brauch ich dazu n 2. label?

[pilic]

Autosize auf FALSE und WordWrap auf TRUE

[f4k3]

Seid gegrüßt liebe DP'ler ;)

Hab folgendes Problem ... wenn meine Form startet ... möchte dass in einem Label das aktuelle Datum + dazugehörigen Wochentag steht ;)

habs zwar schon soweit ... jetzt fehlt mir jedoch noch der Wochentag ... könntet ihr mir helfen?!

ich hab schon ne "funktion" dayofweek gesehen ... aber da steig ich nich ganz durch :P

vielen dank ... euer f4k3 ;) :D

Delphi-Quellcode:

procedure TfHauptprogramm.FormCreate(Sender: TObject);
begin

    lDatum.Caption := ', den ' + FormatDateTime ('dd. mmmm yyyy', now)


end;

[Nuclear-Ping]

Der Schritt in die Delphi Hilfe ist wohl nur wenigen Padawans bekannt ...

Zitat:

Zitat von Delphi Hilfe

StrToDate, DayOfWeek (Beispiel)

Zu diesem Beispiel gehören ein Eingabefeld, eine Beschriftung (Label) und eine Schaltfläche. Wenn der Benutzer ein Datum in dem den Einstellungen in der Systemsteuerung entsprechenden Format (für USA: MM/TT/JJ) eingibt, wird dieser String in einen TDateTime-Wert konvertiert. Dieser Wert wird dann zum Anzeigen des Wochentages verwendet.

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;