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?
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.