Hi,
bei der Funktion MinutesBetween hab ich ein rundungsproblem!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : String;
j : Integer;
a : TStringList;
begin
a := TStringList.Create;
for j := 0 to 22 do begin
i := FloatToStr(MinutesBetween(StrToTime(IntToStr(j)+':30'),StrToTime(IntToStr(j+1)+':00')));
a.Add(IntToStr(j)+':30 - '+ IntToStr(j+1)+':00 = '+i+' Minuten')
end;
ShowMessage(a.Text);
end;
Die
Unit DateUtils muss eingebunden werden.
Kann mir irgendjemand weiterhelfen???