Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
28. Okt 2009
Mal so aus Interesse ... rechnet dieses wenigstens richtig?
Hach, es war schön das Format-Befehlchen mal wieder etwas mißbrauchen zu "dürfen".
:warn: An die Kinder: Bitte nicht nachmachen :lol:
Uses Math, DateUtils;
Function DurationStr(ANow, AThen: TDateTime): String;
Var D: TDateTime;
Yn, Yt, Mn, Mt, Wt, Dn, Dt: Word;
Hn, Ht, Nn, Nt, Sn, St, Tn, Tt: Word;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
27. Okt 2009
:angel:
Wenn du die Extravariablen (d1 und d2) nimmst, dann kannst du das CONST wieder bei den Parametern einfügen :)
(hatte mir diese zusätzlichen Variablen nur erspart, da Delphi hier, selbst mit CONST nicht call-by-referenz nutzt, sondern auch da beide Parameter auf den Stack schiebt, so als würde kein CONST dastehn ... drum hat man ohne Extravariablen und ohne CONST 16 Byte auf'm Stack...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by himitsu,
27. Okt 2009
direkt ausgerechnet, ohne Annäherung über 'ne Schleife
Procedure CheckedSwap(Var ANow, AThen: TDateTime); Inline;
Var Temp: TDateTime;
Begin
If ANow <= AThen Then Exit;
Temp := ANow;
ANow := AThen;
AThen := Temp;