So entfernen Sie die Sekunden von Time, ohne Rückgriff auf TimeToStr(const datetime:TDateTime; const Formateinstellungen:TFormatSettings)

Wie kann die Sekunden entfernt von einer Time-variable ohne Rückgriff auf den zusätzlichen Aufwand mit TimeToStr(const datetime:TDateTime; const Formateinstellungen:TFormatSettings), um den Time-Wert ohne die Sekunden?

ie das ist, was ich brauche -> HH:MM:00 Uhr.

Ist es eine Art mathematische operation (wie und-Verknüpfung oder-Verknüpfung den Wert mit etwas) durchgeführt werden können?

  • Tatsächlich, Sie können nicht! Eine Time-variable intern gespeichert, als ein Schwimmer. Float-Werte Rundungsfehler. Beim Runden einer Zeit, zu Minuten, einem Rundungsfehler auftreten können, verwandeln Sie z.B. 13:17:59 13:18:01 anstatt 13:18:00... Sehr kleine chance, aber immer noch...
  • Ja, das ist richtig und kann gelegentlich Ursache von schwer Fehler zu finden. Wenn Ihre Anwendung ist wirklich abhängig von diesem, um genau zu sein, verwenden Sie keine Time oder TDateTime für die Zeit-Berechnungen. Halten Sie auch im Verstand, dass zukünftige Versionen von Delphi ändern kann die Präzision von floating-point-Berechnungen. Eine andere Sache über die Verwendung von DateUtils, verwenden Sie unbedingt die neueste version, oder zumindest der Nick Hodges veröffentlicht [cc.embarcadero.com/item/27675]. John Herbster geschrieben hat, viel über ein besseres format für TDateTime [forums.embarcadero.com/thread.jspa?threadID=3867].
InformationsquelleAutor Steve F | 2011-06-25
  1. 18
    var
  t: TTime;
  iHour, iMin, iSec, iMSec: Word;

DecodeTime(t, iHour, iMin, iSec, iMSec);
t := EncodeTime(iHour, iMin, 0, 0);
    InformationsquelleAutor oodesigner
  2. 21
    uses
  ..., DateUtils;

var
  t: TTime;
begin
  t := ...;
  t := RecodeSecond(t, 0);
end;
    InformationsquelleAutor Remy Lebeau
  3. 3
    var
t : TTime;

t := Trunc(t * MinsPerDay) / MinsPerDay;

    EDIT :

    Dies ist eine genauere Funktion zum abschneiden der Sekunden.
    Es rundet die Zeit auf das nächste Millisekunden vor dem abschneiden.

    uses
  SysUtils;

const
  FMSecsPerDay: Double = MSecsPerDay;
  FMSecsPerMinute: Double = SecsPerMin * MSecsPerSec;  
  FMinsPerDay: Double = HoursPerDay * MinsPerHour;


function TruncateSeconds(aTime: TDateTime): TDateTime;
begin
  { - Round to closest millisecond before truncating the seconds }
  Result := Trunc(Round(aTime * FMSecsPerDay) / FMSecsPerMinute) / FMinsPerDay;
  //              -- Time in Milliseconds --
  //        ------------- Time in minutes -----------------------
end;
    • Es wäre interessant zu sehen, welche von @oodesigner und Ihre Methoden am effizientesten ist - aber wahrscheinlich nur sehr gelegentlich-Wert in der realen Welt.
    • dieser ist schwer zu schlagen in CPU-Zeit, aber der Hauptgrund, warum ich es verwenden, ist, dass keine zusätzliche Helfer Erklärungen erforderlich ist.
    • Dies ist eine schlechte Praxis. Die Helfer sind Eure Freunde und nicht Eure Feinde, die Sie erlitten haben Umsetzung Leck.
    • auch die op hat Fragen für eine mathematische operation. Normalerweise ist das in meinem MyDateUtils Einheit als eine Funktion.
    • Verwenden Sie zur besseren Lesbarkeit die MinsPerDay Konstante aus SysUtils.
    • David: Was ist "Einführungs-leak"?
    • +1 das ist die Schnellste und sauberste Methode (wörtlich: Runde down, um die Minuten)
    • David, das ist eine gut etablierte Technik für das aufrunden der Werte, aber ich merke, nicht alle Programmierer sind ausgebildet in der Mathematik. Rückgriff auf den Aufruf von zwei library-Funktionen für das ziehen dieser Sie heraus, meiner Meinung nach ist in der Nähe-code aufblähen. Dank NGLN.

    InformationsquelleAutor LU RD
  4. 0
    LongTimeFormat="hh:mm";
Label1->Caption=TimeToStr(Time());
    InformationsquelleAutor mathew
Schreibe einen Kommentar