Zeit (TDateTime) ohne Datum in Datenbank speichern

[ils566]

Hallo,

ich hatte das selbe Problem mit einer mysql-Tabelle und habe es wie folgt gelöst:

Delphi-Quellcode:

var
   DateTime: TDateTime;
   Zeit:     TTime;
begin

    Zeit := DateTime - Trunc(DateTime);

end;

Damit wird der ganzzahlige Anteil, also das Datum auf 0 gesetzt und nur der Nachkommanteil also die Uhrzeit verwendet. Allerdings ist mein Tabellenfeld vom Typ "Time" in mysql definiert.

grüße
ils

[mkinzler]

Statt Zeit := DateTime - Trunc(DateTime); kann man aber auch
Zeit := Frac(DateTime); Schreiben

[himitsu]

Wie schon richtig bemerkt, steht der Nachkommaanteil für die Zeit.

TDateTime

Wobei da wohl Frac gleich das liefert, was benötigt wird

Delphi-Quellcode:

Zeit  := Frac(DateTime);
Datum := Trunc(DateTime);

PS: gilt nur für einen positiven TDateTime-Wert ... genaueres steht in der OH


[edit]
mkinzler: wie kannst du dich nur vordrängeln -.-''