Zitat von
urbanbruhin:
...wenn du es genau haben willst, kannst du ja der intervall auf 1 oder auf 10 stellen, aber immer ein teiler von 1000, sonst könnte es dann doch ziemlich abweichen.
was du natürlich auch noch beachten musst, ist, die systemzeit sehr genau einzustellen, sonst nützt auch der kleinste inervall vom timer nichts...
Entschuldige bitte, aber das ist Quark^3.
Wenn ich im Timer-Ereignis immer die Differenz zwischen '1.1.2006 00:00:00' und Jetzt anzeige, ist es absolut egal, wie genau die Systemzeit ist, und wie ich das Timerinterval einstelle, solange es < 1000 ist. Es wird dann garantiert jede Sekunde mindestens einmal die Zeit abgefragt.
Wie zeige ich die Differenz an?
Delphi-Quellcode:
Function RemainingTime(aStart, aStop: TDateTime): String;
Var
iSeconds, iMins, iHrs, iDays: Int64;
Begin
iSeconds := Trunc(0.5 + (aStop - aStart) * 86400); // Erstmal Sekunden ausrechnen und aufrunden
Result := Format('%.2d sec', [iSeconds Mod 60]);
iMins := iSeconds Div 60; // Minuten ausrechnen
If iMins = 0 Then Exit;
Result := Format('%.2d min, %s', [iMins Mod 60, Result]);
iHrs := iMins Div 60; // Stunden ausrechnen
If iHrs = 0 Then Exit;
Result := Format('%.2d Std, %s', [iHrs Mod 24, Result]);
iDays := iHrs Div 24; // Tage ausrechnen
Case iDays of
0 : ;
1 :
Result := Format('%d Tag, %s', [aSeconds, Result]);
Else
Result := Format('%d Tage, %s', [aSeconds, Result]);
End
End;