Probleme beim Kopieren von Datums-/Zeitfeldern

[Martin Dorer]

Ich verwende zwei Paradox7 Tabellen, die jeweils unter anderem Datums/ZeitFelder beinhalten. Soll nun der Inhalt eines dieser Datums/Zeitfelder über eine Zuweisung kopiert werden, so erhalte ich eine "ungültige Gleitkommadivision" und der Vorgang wird abgerochen. Ich konnte den Fehler bis in die SysUtils verfolgen, wo er in folgendem Programmabschnitt auftaucht.

Der Quelltabellenfeldinhalt lautet: "00:00:00 10.06.2001"

Meine Funktion:

Reserv2a.fieldbyname('PlanAusgang').asDateTime :=
Veranstaltungen1a.fieldbyname('SRZBeginn').asDateT ime;

Zeile in Sysutils, wo der Fehler auftaucht:

function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
asm
MOV ECX,EAX <br>
FLD DateTime => DateTime hat den Wert 37052<br>
also 10.06.2001<br>

FMUL FMSecsPerDay <br>
SUB ESP,8 <br>

FISTP QWORD PTR [ESP] => Hier wird mit ungültige<br>
Gleitkommaoperation abgebrochen<br>

FWAIT<br>
POP EAX<br>
POP EDX<br>
OR EDX,EDX<br>
JNS @@1<br>
NEG EDX<br>
NEG EAX<br>
SBB EDX,0<br>
DIV IMSecsPerDay<br>
NEG EAX<br>
JMP @@2<br>
@@1: DIV IMSecsPerDay<br>
@@2: ADD EAX,DateDelta<br>
MOV [ECX].TTimeStamp.Time,EDX<br>
MOV [ECX].TTimeStamp.Date,EAX<br>
end;<br>