Использование таймера в часах - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Вообщем прошу помочь Возможно ли как-то в паскале закинуть таймер к часам ? Т.е. Обычные часы (считывающие все с системного времени) и туда к ним закинуть таймер , который бы отсчитывал определенные промежутки ? Искал подобное задание , в итоге нашел что-то похожее только на вба.

Решение задачи: «Использование таймера в часах»

textual
Листинг программы
uses System;
 
begin
  var d0 := New DateTime(2016, 1, 1);
  var d1 := DateTime.Now.Subtract(d0);
  
  WriteLnFormat('От начала года прошло{0} {1} дней{0} {2} часов{0} {3} минут{0}',
      NewLine, d1.Days, d1.Hours, d1.Minutes);
end.

Объяснение кода листинга программы

  1. Создается новый объект DateTime с начальной датой (2016, 1, 1)
  2. Получается текущее время с помощью метода DateTime.Now
  3. Вычисляется разница между текущим временем и начальной датой с помощью метода Subtract
  4. Выводится результат в формате От начала года прошло [количество] дней [количество] часов [количество] минут с помощью функции WriteLnFormat и строки формата, включающей переменные d1.Days, d1.Hours и d1.Minutes.
  5. Код не содержит обработки ошибок и завершается корректно.

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы