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