Показать сообщение отдельно
  #1  
Старый 03.10.2020, 21:15
Motorolla Motorolla вне форума
Прохожий
 
Регистрация: 06.06.2019
Сообщения: 17
Версия Delphi: Delphi 7 / XE8
Репутация: 10
По умолчанию TimeStamp из TDateTime

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