Количество сотых долей секунды, прошедших с начала дня

Можно использовать, например, в качестве BenchMark-а времени выполнения некоторого кода для отладки.

@ echo off
setlocal enabledelayedexpansion

call :gettick
echo Tick Count: %errorlevel%

pause
exit /b 0

:: Количество сотых долей секунды, прошедших с начала дня
:gettick
setlocal
set t=%time: =0%
set /a tick=1%t:~9,2%-100+(1%t:~6,2%-100)*100+(1%t:~3,2%-100)*6000+(1%t:~0,2%-100)*360000
endlocal & exit /b %tick%

Функция gettick возвращает количество сотых долей секунды, прошедших с начала дня. Чтобы не появилось «восьмеричных» чисел (числа, начинающиеся с нуля, воспринимаются как восмеричные), я дописываю к каждой компоненте времени в начало 1, а затем вычитаю 100. Таким образом проблема решается без введение дополнительных поверок if.

тема на форуме

(читать всё…)

Есть прога, написаная на Делфи ХЕ. Нужно определить, сколько времени (можно в минутах) прошло с момента предыдущего запуска. (читать всё…)