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