n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

InstallerSamples/NETLibraries/NET4.0/StopWatch.pas

11 строк330 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// Stopwatch - ����� ������������� ������� (� ��������� �� 0.001 �)
begin
  var stopWatch := new System.Diagnostics.Stopwatch;
  stopWatch.Start;
 
  Sleep(123);
 
  stopWatch.Stop;
  var ts := stopWatch.Elapsed;
  writelnFormat('����� ������: {0:00}:{1:00}:{2:00}.{3:000}',ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds);
end.