Работа со временем

[ZoxWatt]

нужно вычислить время работы участка кода на PascalABC.NET. гугл не помог((

[Stilet]

А какие функции есть в твоем АБЦ для работы с временем?

[ZoxWatt]

Модуль Timers содержит класс Timer, позволяющий выполнять определенные действия через равные промежутки времени. В конструкторе класса Timer указывается промежуток времени и имя процедуры без параметров - обработчика события таймера, вызываемой через указанный промежуток времени.
Класс Timer имеет следующий интерфейс:

type 
  Timer = class
    constructor (ms: integer; TimerProc: procedure); 
    procedure Start;
    procedure Stop;
    property Enabled: boolean read write;
    property Interval: integer read write;
end;

Члены класса Timer описаны в следующей таблице:

constructor (ms: integer; TimerProc: procedure);

Создает таймер, выполняющий каждые ms миллисекунд действие, содержащееся в процедуре без параметров TimerProc, называемой обработчиком таймера. Созданный таймер необходимо запустить, вызвав метод Start

procedure Start;

Запускает таймер

 
procedure Stop;

Останавливаетает таймер

  
property Enabled: boolean read write;

Запущен ли таймер

property Interval: integer read write;

Промежуток времени между вызовами обработчика таймера

[Stilet]

Нет нет нет.
Таймер это компонент для отмериваний промежутка между вызовом событий.
Тебе же нужно что-то вроде:

TimeBefore=Time;
...
 Твой код
...
TimeAfter=Time;
А тут сравнение на сколько большая разница между TimeAfter и TimeBefore
Что-то типа TimeAfter-TimeBefore=Миллисекунды

[ZoxWatt]

ничего подобного не нашел((( в турбопаскале есть модуль dos, там есть функция gettime, которая работает по тому принципу, который мне нужен. скомпилится ли он в абц?)))

[Stilet]

Нет. Врядли. А функции времени просто обязаны быть в АБЦ. Иначе этот паскаль ни в зуб ногой. Ищи лучше. Я точно знаю что в TP есть такие функции даже в классике, а про АБЦ мне ничего не известно.

[ZoxWatt]

я у разрабов загуглил(благо они преподают у нас в универе):

var srart:=System.DateTime.Now;
//делаем что-то
var finish:=System.DateTime.Now;
writeln((finish-start).TotalSenonds);