[KORSA_MC]

Вот такая проблема стоял delphi 7(прога работала норм,но по некоторым причинам пришлось поставить хе3 ,поставил 2012 XE3 и программа стала выдавать не правильное время все перерыл ничего не нашёл может подскажите.... вот код :

Код:

function TimeWorks: String;
var
  Hours,
  Minutes,
  Seconds,
  MSeconds,
  TheLength: Integer;
begin
  Hours:=TheLength div 3600000;
  Minutes:=(TheLength mod 3600000) div 60000;
  Seconds:=((TheLength mod 3600000) mod 60000)div 1000;
  MSeconds:=((TheLength mod 3600000) mod 60000)mod 1000;
  result := IntToStr(Hours)+':'+IntToStr(Minutes)+':'+IntToStr(Seconds);
  end;
begin
  Label1.Caption := 'Продолжительность работы компьютера : '+TimeWorks;
  end;

Админ: Пользуемся тегами дял оформления кода!