aktuellen Wochentag und Zeit auslesen

AceTheFace · Beiträge: 39

Hallo,

wie schaffe ich es, von der Windows-Systemuhr den Wochentag und die Uhrzeit auszulesen?
Ziel ist es später, einen Terminplan zu schreiben, der sobald er aufgerufen wird, anzeigt, welcher Termin der nächste ist...oder so ähnlich

Wäre nett wenn mir jemand helfen könnte,

Gruss,

Ace

Cashels · Beiträge: 167

Hallo,

das aktuelle Datum und Zeit kriegst du mit now ;. Den Wochentag mit DayOfWeek (Now) ;

In dem Zusammenhang rat ich dir auch mal die Methoden EncodeDate, DecodeDate, EncodeTime und DecodeTime anzuschauen.

Gruss,
Tom

Luncustaf · Beiträge: 324 Win 2k D7 Ent.

hi

markieren

Quelltext

1:
2:

   Label1.Caption := DateToStr(Date);
   Label2.Caption := TimeToStr(Time);

so kannst du zb die einloggzeit festhalten - die uhrzeit ändert sich nicht

wenn du die uhrzeit angeben willst also eine uhr die sich immer aktualisiert dann nutze einen timer

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := DateToStr(Date);
  Label2.Caption := TimeToStr(Time);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label2.Caption := TimeToStr(Time);
end;

hier musst du das OnTimer-Ereigniss der Timer-Komponente benutzen - du kannst den intervall einstellen wann die uhr aktualisiert werden soll beachte das 1000 = 1sek ist

gr€€tz

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme