markieren

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

Fehlermeldung

markieren

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;

Danke dir

noch ne frage

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?

Autosize auf FALSE und WordWrap auf TRUE

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

vielen dank ... euer f4k3

markieren

Delphi-Quellcode:

procedure TfHauptprogramm.FormCreate(Sender: TObject);
begin

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


end;

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

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.

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;