Из С++ в Delphi

interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math;
 
type
  CDateYearWeek = class
  m_y, m_m, m_d : integer;
  public
    PagesCount: integer;
    Title, Author: string;
 
    function CDateYearWeek( m_y, m_m, m_d : integer ): integer;
    function GetNumWeek( y : integer ): integer;
    function SetDateStr( day, month, year : integer ): integer;
 
    constructor Create();
    destructor Destroy(); override;
end;
 
implementation
 
{$R *.dfm}
 
{ CDateYearWeek }
 
constructor CDateYearWeek.Create;
begin
  m_y := 00;
  m_m := 00;
  m_d := 00;
end;
 
destructor CDateYearWeek.Destroy;
begin
 
end;
 
function CDateYearWeek.CDateYearWeek( m_y, m_m, m_d : integer ): integer;
var
  c : integer;
begin
  if m_m > 2 then
    Dec( m_m, 2 )
  else
  begin
    Inc( m_m, 10 );
    Dec( m_y );
  end;
  c   := m_y div 100;
  m_y := m_y mod 100;
  Result := Abs(
                Round( 2.6 * m_m - 0.2 ) + m_d + m_y + (m_y div 4) + (c div 4) - 2*c - 1
                ) mod 7+1;
end;
 
function CDateYearWeek.GetNumWeek( y : integer ): integer;
begin
  if (y mod 4 = 0) AND (y mod 100 <> 0) OR (y mod 400 = 0)  then
    Result := 1
  else
    Result := 0;
end;
 
function CDateYearWeek.SetDateStr( day, month, year: integer ): integer;
begin
  m_y := year;
  m_m := month;
  m_d := day;
  Result := 0;
end;
 
end.