Was ists für eine
DB? Wie greifst du darauf zu? Erzähl einfach mal ein bisschen mehr drum herum. Und sonst sind keinerlei Daten "defekt"?
PS: Bau doch mal einen Log ein... Du schreibst ja den Wert von Now in die
DB und holst dir dann wieder den Datumswert. Da kann ja zwischendrin sehr viel schief laufen. Mache danach einfach mal eine Prüfung i.S.v.:
Delphi-Quellcode:
var
CurrentTimestamp : TDateTime;
begin
// ...
CurrentTimestamp := Now();
kopf.LIEFERDATUM:= CurrentTimestamp;
// Schreibe Datensatz in DB
// Hole Datum aus DB
if (Math.Abs(kopf. LIEFERDATUM - CurrentTimestamp) > 1)
Then
begin
Log('
Es lief ziemlich was schief');
end;
end;
Ich denke, die Idee ist klar?!
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)