Fehler beim Zeitvergleichen

[SaFu]

Hi

Nachdem mein Programm jetzt läuft, wollte ich es mal testen da ist mir doch aufgefallen, das der Server auf dem ich es gelegt und getestet habe eine Engliche Systemzeit hat.

Ich vergleiche Aktuelleuhrzeit mit Eingegebeneruhrzeit

Delphi-Quellcode:

sUhrzeit:= TimeToStr(DateTimePicker1.Time); // Eingestellte Zeit

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 Aktuell:= (FormatDateTime('hh:mm:ss', now)); // Systemzeit
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  if Aktuell = sUhrzeit then
  begin
   Button7.Click; // dateien älter als löschen
  end;
end;

Nur leider ist die Aktuellezeit auf dem Srever englich, auf meinem deutschen System funzt es sehr gut wo kann ich da jetzt mal nachschauen??

Oder was gibt es für Lösungen

[mkinzler]

Vergleiceh nicht die Strings sondern die DateTime-Werte

[RavenIV]

Zitat von mkinzler:

Vergleiceh nicht die Strings sondern die DateTime-Werte

Und denk dran, dass es Real-Werte sind.
Die solle man nicht mit "=" vergleichen, sondern immer den Umweg über "delta" gehen.

Such hier im Forum nach "Real vergleichen" oder "Float vergleichen"

[littleDave]

Zitat von fuknersascha:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 Aktuell:= (FormatDateTime('hh:mm:ss', now)); // Systemzeit
end;

Deine Format-Ausgabe ergibt "Stunde : Monat : Sekunde". "m" ist der Bezeichner für Month, für Minute gibt es "n" ->
'hh:nn:ss' wird die Zeitausgaber erstmal richtig ausgeben.

[marabu]

Hallo,

Zitat von littleDave:

... 'hh:nn:ss' wird die Zeitausgaber erstmal richtig ausgeben.

Borland wusste um die Doppeldeutigkeit von mm bei kombinierten Datum- und Zeit-Werten und hat die Funktion so gebaut, dass trotzdem das erwartete Ergebnis produziert wird.

Grüße vom marabu

[SaFu]

Zitat von RavenIV:

Zitat von mkinzler:

Vergleiceh nicht die Strings sondern die DateTime-Werte

Und denk dran, dass es Real-Werte sind.
Die solle man nicht mit "=" vergleichen, sondern immer den Umweg über "delta" gehen.

Such hier im Forum nach "Real vergleichen" oder "Float vergleichen"

Also ich muss den Wert noch in eine Ini schreiben das heist es wäre besser wenn ich Float nehme oder leige ich da falsch

[mkinzler]

Ja ich würde die Werte im TDateTime-Format (Double) ablegen. Diese sind landesunabhängig

[SaFu]

jetzt nochmal ne blöde Frage wie mache ich das hier mit der Aktuellen zeit

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Aktuell:= (FormatDateTime('hh:mm:ss', now)); // Systemzeit
end;

[mkinzler]

Now ist im Datetime-Format

[Sharky]

Hai fuknersascha,

warum beharst Du denn darauf die Zeit als String zu hinterlegen?