timestamp

Нужен штамп с дискретностью 100uSec. Сделал так, но выглядит удручающе. Полагаю, что есть более трезвый способ?.. Код: 1 2 3 4 function DateTimeToTimeStamp(DateTime:TDateTime):cardinal; begin result:= round(frac(DateTime)*1000000000); end;