Immer diese Diskussionen um schon längst gelöste Fragen nur um Variablen zu sparen, die das ganze eigentlich für den Fragesteller nur lesbarer und nachvollziehbarer machen sollten...
Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
function HimisDateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
begin
Result.Date := Trunc(DateTime) + DateDelta;
Result.Time := Trunc(Frac(DateTime) * MSecsPerDay);
end;
var
d: TDateTime;
t: TTimeStamp;
begin
d := EncodeDate(1899, 11, 11) + EncodeTime(11, 11, 11, 00);
t := DateTimeToTimeStamp(d);
Writeln(t.Date, ' ', t.Time);
t := HimisDateTimeToTimeStamp(d);
Writeln(t.Date, ' ' , t.Time);
Readln;
end.
qef