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

TestSamples/CompilationSamples/DateTime2.pas

31 строка844 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

Uses System;

var d1, d2, d3: DateTime; // ������� ��� �������� ���� � �������
    ts: TimeSpan; // ������ ��� �������� ����������� �������

begin
  // ��������� ������� ���� - ����� ������������ ������
  d1 := DateTime.Now; 
  Writeln(d1);
  
  // ���� � ����� ����� ���� �����
  d2 := d1.AddMonths(1);
  Writeln(d2);

  // ���� � ����� �� 12 ����� ������
  d2 := d1.AddHours(-12);
  Writeln(d2);

  // ������������ ���� - ����� ������������ ������� (���, �����,�����)
  d3 := new DateTime(2001, 1, 1);
  Writeln(d3);
  
  // ����������� �������, ���������� � ������ ����������� (�������� ���)
  ts := d1.Subtract(d3);

  // ���������� ������� � ���� (��������� - ������������ �����)
  Writeln(ts.TotalDays);
  
  // ���������� ������� � ����, �����, ������� � ��������
  Writeln(ts.Days, ' ', ts.Hours, ':', ts.Minutes, ':', ts.Seconds);
end.