Алгоритм подсчёта времени, которое ушло на какую-либо операцию
|
Интернациональная встреча Нового Года (2000). Американец, хвастаясь успехами своей страны:
- А вот у нас, в Америке ....
Наш _ВОЕННЫЙ_ программер, поднимая лицо из тарелки с салатом:
- А вот нет больше твоей Америки
Американец, обливаясь холодным потом:
- Как нет?? Почему??
Наш, пуская пузыри в салат (неразборчиво):
- А у нас проблема 2000 была на 12 часов раньше ....
|
var
OperBegin, OperEnd: TTimeStamp;
Total: LongWord;
begin
OperBegin := DateTimeToTimeStamp(Now); {запоминается момент начала операции}
{Здесь размещается код операции}
OperEnd := DateTimeToTimeStamp(Now); {запоминается момент окончания операции}
Total := OperEnd.Time - OperBegin.Time;
end;
|
|
