Rundungsfehler bei MinutesBetween und Secondsbetween

[RoadR69]

Delphi XE7 liefert 600 bzw. 36000

Also: Lazarus? Welche Version? Welches Plattform?

[khh]

windows 7 prof
lazarus 1.4RC2
FPC 264
REV 48058


PS: bei 11 oder 9 std. stimmen die Werte

[BadenPower]

Das gleiche "Fehlverhalten" zeigt sich auch unter Delphi2007.

Das resultiert aus Rundungs-Differenzen beim Umwandeln von z.B Stings in Datumswerte.

Wenn Du den Float-Wert für das Datum direkt angibst, dann stimmt das Ergebnis auch.

Oder Du rundest den Datumswert nach der Umwndlung aus einem String auf die 10. Nachkommastelle.

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

uses DateUtils,Math;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  lDateTime1: TDateTime;
  lDateTime2: TDateTime;
begin
  lDateTime1 := 42209.125;
  lDateTime2 := 42209.54166666667;

  //ShowMessage(DateTimeToStr(lDateTime2));
  ShowMessage(IntToStr(MinutesBetween(lDateTime1,lDateTime2)));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  lDateTime1: TDateTime;
  lDateTime2: TDateTime;
begin
  //lDateTime1 := EncodeDateTime(2015, 07, 24, 03, 0, 0, 0);
  //lDateTime2 := EncodeDateTime(2015, 07, 24, 13, 0, 0, 0);

  lDateTime1 := StrToDateTime('24.07.2015 03:00:00');
  //lDateTime2 := StrToDateTime('24.07.2015 13:00:00');
  lDateTime2 := RoundTo(StrToDateTime('24.07.2015 13:00:00'),-10);

  ShowMessage(FloatToStr(lDateTime1));
  ShowMessage(FloatToStr(lDateTime2));
  ShowMessage(IntToStr(MinutesBetween(lDateTime1,lDateTime2)));

end;

[khh]

funktioniert leider trotzdem nicht.
Wenn ich den Wert asDateTime (aus der Datenbank im Timestamp-Feld) übergebe, bekomme ich genau auch diese Differenz bei 10 Stunden.

11 und 9 stimmen

Moment, ich sehe gerade du rundest VOR Minutesbetween

macht trotzdem nix aus

[khh]

alsooo, egal wie ichs mache,

Delphi-Quellcode:

 larbeitsbeginn:= ZQuery.FieldByName('arbeitsbeginn').AsDateTime;
 larbeitsende:= ZQuery.FieldByName('arbeitsende').AsDateTime;
 lDateTime2 := RoundTo(larbeitsbeginn,-10);
 lDateTime3 := RoundTo(larbeitsende,-10);
 lsekunden := SecondsBetween(lDateTime2,lDateTime3) ;

bei 10 stunden ist der Fehler da.

[khh]

ich löse das nun anders.

ich ziehe Arbeitsbeginn von Arbeitsende ab und nehme den Wert mit DecodeTime ausseinander,
das klappt.
Dann muss ich halt eventuell anfallende Tage wieder zu den Stunden dazu zählen, aber was solls.


Ich danke euch

[BadenPower]

Zitat von khh:

alsooo, egal wie ichs mache,

Delphi-Quellcode:

 larbeitsbeginn:= ZQuery.FieldByName('arbeitsbeginn').AsDateTime;
 larbeitsende:= ZQuery.FieldByName('arbeitsende').AsDateTime;
 lDateTime2 := RoundTo(larbeitsbeginn,-10);
 lDateTime3 := RoundTo(larbeitsende,-10);
 lsekunden := SecondsBetween(lDateTime2,lDateTime3) ;

bei 10 stunden ist der Fehler da.

Lass mal den Zwischenschritt weg:

Delphi-Quellcode:

 lDateTime2 := RoundTo(ZQuery.FieldByName('arbeitsbeginn').AsDateTime,-10);
 lDateTime3 := RoundTo(ZQuery.FieldByName('arbeitsende').AsDateTime,-10);
 lsekunden := SecondsBetween(lDateTime2,lDateTime3) ;

Oder Runde auf weniger Nachkommestellen als 10 z.B 8 oder 6.

Bei mir unter Lazarus 1.4 funktioniert das Runden auf 10 Nachkommastellen um auch mit SecondsBetween den Wert 36000 zu erhalten.

Hast Du Dir schon einmal anzeigen lassen, was larbeitsbeginn und larbeitsende für Werte haben, nachdem Du diese aus den Feldwerten zuweist?

[khh]

Zwischenschritt weglassen ändert nix
Ist schon eigenartig

beim richtigen Ergebnis von 10 std. steht in begin 42209.125 und in ende 42209.541666666664
beim Fehler mit 11 stunden steht in begin 42173.166666666664 und in ende 42173.625

Warum sind denn die Nachkommawerte so unterschiedlich lang?
In der Datenbank stehen "lesbar" bei beiden Beispielen volle Stunden
24.07.2015 03:00:00 und 24.07.2015 13:00:00
und
18.06.2015 04:00:00 und 18.06.2015 15:00:00