Mit Hilfe eines TLabels lasse ich mir Tag, Datum und KW anzeigen (An dieser Stelle vielen Dank an den Mathematiker, ich habe deine KW Function gefunden und verbaut).
Wie kann man genau prüfen, ob es Mitternacht ist um dieses Label zu aktualisieren ?
Im Moment vergleiche ich zwei Strings:
(kein MultimediaTimer oder QueuedTimer... ist der ganz einfache Timer, Intervall: 1000)
Delphi-Quellcode:
Procedure TwndToDO.timerTIMETimer(Sender: TObject);
Var
CheckNewDay:
String;
Begin
Try
labTime.Caption := TimeToStr(Now)+'
';
labTime_Sh.Caption:= labTime.Caption;
Inc(Counter);
If Counter = 20
Then
Begin
Counter:= 0;
CheckNewDay:= FormatDateTime('
hh:mm',Now);
If CheckNewDay = '
00:00'
Then
Begin
labDate.Caption:=
// gekürzt, viel zu lang...
labDate_Sh.Caption:= labDate.Caption;
End;
End;
Except
On E:
Exception
Do ErrorLog('
TimerTIME Failed'+#13#10+E.ClassName+#13#10+E.
Message);
End;
End;