HourSpan ... Merkwürdigkeiten

[himitsu]

Werden Exceptions in diesem Event ausgegeben?

Tja, dann kannst'e wohl nur mal "alles" loggen (Ankunft, Abkunft und Dauer) und nachher versuchen deine Werte von der Anzeige darin zu finden.



Bei "Abkunft" im Code/DB hätte ich Angst das ständig mit Ankunft zu verwechseln.

Wobei Abkunft eigentlich nur eine "örtliche" Abstammung ist und keine Zeitliche. (zumindestens im Deutschen ... k.A. ob Ösis/Schweizies da komische Eigenarten haben)

[haentschman]

Zitat:

Bei "Abkunft" im Code/DB hätte ich Angst das ständig mit Ankunft zu verwechseln.

...das ist alter Code. Ich habe die Variablennamen, außer den Feldnamen, für hier etwas modernisiert. Es gibt auch noch nicht mal eine Prüfung ob die "Abfahrt" kleiner ist als die "Ankunft" ist. (Logikfehler)

Zitat:

Werden Exceptions in diesem Event ausgegeben?

nein

[Blup]

Hier scheint mir Abkunft (Abfahrtzeitpunkt) und Ankunft bei der Auswertung vertauscht zu sein.
Da jeder Eintrag einen Abfahrtzeitpunkt hat, sollte sich die Bedingung doch auf die Ankunft beziehen.

Delphi-Quellcode:

procedure TDMED.FDQAktuelleTermineAnkunftChange(Sender: TField);
var
  StartTime: TDateTime;
  EndTime: TDateTime;
  HourDifference: Double;
begin
  StartTime := FDQAktuelleTermine.FieldByName('Abkunft').AsDateTime;
  EndTime := FDQAktuelleTermine.FieldByName('Ankunft').AsDateTime;
  if (StartTime <= 0) or (EndTime <= 0) or (StartTime > EndTime) then
  begin
    FDQAktuelleTermine.FieldByName('Dauer').Clear;
  end
  else
  begin
    HourDifference := HourSpan(StartTime, EndTime);
    FDQAktuelleTermine.FieldByName('Dauer').AsFloat := HourDifference;
  end;
end;