Delphi-Quellcode:
function DaysBetween(const AFrom, ATo: TDateTime): Integer;
begin
Result := abs(Trunc(AFrom - ATo));
end;
Geht mit diesem Abs nicht noch ein wenig Information verloren? Denn wenn der Wert kleiner 0 ist, dann ist halt ATo nur größer als AFrom, was ja an sich nicht schlimm ist. Aber gut, kann man drüber streiten -- und Weihnachten steht vor der Türe, also lassen wir das
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)