Получить текущее системное время - PascalABC.NET

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

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

Здравствуйте! Пожалуйста, подскажите, какой командой в Pascal ABC.net можно получить системное или BIOS-овское время (задача - вывести текущее время на экран).

Решение задачи: «Получить текущее системное время»

textual
Листинг программы
uses System;
 
begin
  var dt1 : DateTime := DateTime.Now;
  var dt2 : DateTime := DateTime.Parse('25/02/2016');
  if dt1.CompareTo(dt2) > 0 then
    writeln('dt1 > dt2')
  else
    writeln('dt1 <= dt2');
end.

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

  1. Импортируется пространство имен System.
  2. Объявляются две переменные типа DateTime: dt1 и dt2.
  3. Значение переменной dt1 устанавливается в текущее системное время с помощью свойства Now класса DateTime.
  4. Значение переменной dt2 устанавливается с помощью метода Parse, который принимает в качестве аргумента строку '25/02/2016' и парсит ее в объект типа DateTime.
  5. Сравниваются объекты dt1 и dt2 с помощью метода CompareTo. Если результат сравнения больше нуля, то выводится сообщение 'dt1 > dt2', иначе выводится сообщение 'dt1 <= dt2'.

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

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