TimeStamp из TDateTime

joker777

Ефрейтор
Сообщения
9
Реакции
0
Нужен штамп с дискретностью 100uSec.
Сделал так, но выглядит удручающе. Полагаю, что есть более трезвый способ?..


Код:

1
2
3
4
function DateTimeToTimeStamp(DateTime:TDateTime):cardinal;
begin
result:= round(frac(DateTime)*1000000000);
end;