meine Funktion sieht nun so aus, hab Sie Gröstenteils
übernommen:
Delphi-Quellcode:
function TFrameDaten.Act_TimeBetween(von, bis : String): TDateTime;
var
H,M: integer;
R: Real;
start,ende: TDateTime;
begin
start := StrToDateTime(von);
ende := StrToDateTime(bis);
if start > ende then
ende:= IncDay(ende);
R:= HourSpan(start,ende);
H:= Round(Int(R)); // Stunden
M:= Round(Frac(R)* 60); // Minuten
if M = 60 then begin // aus 60 Min wird 1 volle Stunde
M:= 0;
Inc(H);
end;
result := StrToDateTime(Format('%d:%.2d',[H, M]));
end;
Es hesisst ja man soll nie eine "Fremdfunktion" verwenden, wenn man nicht genau weis was da passiert...
na ja, also ich kappier alles voll und ganz ausser:
kann mir jmd sagen was die Parameter '%d:%.2d' bei dieser Funktion GENAU machen
Format('%d:%.2d',[H, M])); ??
ungefähr weisichs ja nur kanns mal jmd GANZ GENAU erklären? das würde mich
beeindrucken...