Er möchte eigentlich den Minutenanteil in Stunden in der Industriezeit
Da eine Industriestunde einer normalen Stunde entspricht, ist das doch vollkommen irrelevant. Eine halbe Stunde wird dabei doch als 0.5 dargestellt. Das sind zwar 50 Industrieminuten, aber die Einheit soll ja wohl Stunden sein.
Sehe ich das jetzt zu einfach oder kann man das nicht durch dieses Konstrukt erreichen:
Delphi-Quellcode:
uses
System.SysUtils,
System.Math;
...
function IndustrieStundenZwischen(DT1, DT2: TDateTime): Double;
{ Liefert die Differenz in Stunden mit zwei Nachkommastellen zurück und ist somit auf 1 Industrieminute genau }
begin
result := SimpleRoundTo((DT2 - DT1)*HoursPerDay, -2);
end;